(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    118802,       2812]
NotebookOptionsPosition[    103887,       2570]
NotebookOutlinePosition[    104244,       2586]
CellTagsIndexPosition[    104201,       2583]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[Omega]", "=", 
  RowBox[{"2", "Pi", " ", "f"}]}]], "Input",
 CellChangeTimes->{{3.7812417410497255`*^9, 3.781241753852517*^9}},
 CellLabel->
  "In[211]:=",ExpressionUUID->"256e3163-237b-4383-964f-ae28860b9d67"],

Cell[BoxData[
 RowBox[{"2", " ", "f", " ", "\[Pi]"}]], "Output",
 CellChangeTimes->{3.7812417550961637`*^9, 3.7812571794127197`*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"e5c77d6e-b908-465e-97a0-5de03b801799"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[CapitalIota]"], "Input",
 CellChangeTimes->{{3.7812417590136847`*^9, 3.7812417905193677`*^9}, {
  3.78124242787831*^9, 3.7812424466884346`*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"6fd64210-85c5-43ab-9263-c7219a27af70"],

Cell[BoxData["\[CapitalIota]"], "Output",
 CellChangeTimes->{3.7812424490770435`*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"553eae14-adce-4478-a482-c2106034a590"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"U", "=", "1"}]], "Input",
 CellChangeTimes->{{3.7812571863666697`*^9, 3.7812571868952117`*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"19775c74-77bd-421a-bb23-c13f6ed68d7a"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.781257187361167*^9},
 CellLabel->
  "Out[213]=",ExpressionUUID->"12141743-60a6-48d4-88e7-78f6f72a3120"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "[", "R_", "]"}], ":=", 
  RowBox[{"U", "/", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Omega]", " ", "L"}], "-", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"\[Omega]", " ", "C"}], ")"}]}]}], ")"}], "^", "2"}], "+", 
     RowBox[{"R", "^", "2"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.781242451716978*^9, 3.7812425645390406`*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"6ab48e13-2e22-4b11-b28b-a7259f31381c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "[", "100", "]"}]], "Input",
 CellChangeTimes->{{3.7812425846222982`*^9, 3.7812425872412825`*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"f1e4cfd1-7459-4035-b7cb-4868515cbdc7"],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox[
   RowBox[{"10000", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3.3862753849339434`*^6", "f"]}], "+", 
       RowBox[{"0.6283185307179586`", " ", "f"}]}], ")"}], "2"]}]]]], "Output",
 CellChangeTimes->{3.7812425877299747`*^9, 3.781257193073674*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"b639338c-e381-4ed4-b951-66bf7f69bc33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["L"], "Input",
 CellChangeTimes->{3.7812417953773613`*^9},
 CellLabel->
  "In[119]:=",ExpressionUUID->"6ed8dc0c-3e90-48d3-bc7f-af217b189d2f"],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{3.7812417959118977`*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"3246b298-be1c-43ab-adc2-a345a8b20693"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "A", "]"}]], "Input",
 CellChangeTimes->{
  3.781242534125478*^9, {3.7812425731569757`*^9, 3.7812425765229673`*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"fe02a2ac-ff7b-4afb-a1d0-507dd1d2b2cc"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781242546620994*^9, 
  3.781242548432147*^9}},ExpressionUUID->"f7012dec-d846-4b1c-ad3d-\
f9a088a2c6db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"A", "[", "100", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "1600", ",", "3000"}], "}"}]}], "]"}], ",", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Dashed", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1600", ",", "0.01"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3000", ",", "0.01"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "\"\<\[CapitalIota]/A\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{"2321.5", ",", "0.01"}], "}"}], "]"}]}], "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.781242593628227*^9, 3.7812426376195283`*^9}, {
  3.7812427336349087`*^9, 3.781242859011325*^9}, {3.7812429287157464`*^9, 
  3.7812430449203644`*^9}, {3.7812431429274073`*^9, 3.7812432425990205`*^9}, {
  3.7812433999678764`*^9, 3.7812434207751513`*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"d6a1a4ab-1527-4c50-80bd-55fb31c86e25"],

Cell[BoxData[
 TemplateBox[{
  "Show","gcomb",
   "\"\:65e0\:6cd5\:5408\:5e76 \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", \
RowBox[{GraphicsBox[List[List[List[List[], List[], \
TagBox[List[Directive[Skeleton[3]], LineBox[Skeleton[1]]], \
Function[Annotation[Slot[1], \\\"Charting`Private`Tag$47721#1\\\"]]]]], \
List[], List[]], List[Rule[DisplayFunction, Identity], Rule[Ticks, \
List[Automatic, Automatic]], Rule[AxesOrigin, List[1600, \
0.0008963759549629121`]], Rule[FrameTicks, List[List[Automatic, \
Charting`ScaledFrameTicks[List[Skeleton[2]]]], List[Automatic, \
Charting`ScaledFrameTicks[List[Skeleton[2]]]]]], Rule[GridLines, List[None, \
None]], Rule[DisplayFunction, Identity], Rule[PlotRangePadding, \
List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.05`], \
Scaled[0.05`]]]], Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \
Rule[DisplayFunction, Identity], Rule[AspectRatio, NCache[Power[GoldenRatio, \
-1], 0.6180339887498948`]], Rule[Axes, List[True, True]], Rule[AxesLabel, \
List[None, None]], Rule[AxesOrigin, List[1600.`, 0.0008963759549629121`]], \
RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \
List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \
None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \
Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \
List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], Rule[\\\"DefaultMeshStyle\
\\\", AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \
Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \
Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[1600, 3000], \
List[0.0008963759549629121`, 0.009999991945472533`]]], \
Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \
List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \
Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \
GraphicsBox[List[Dashing[List[Small, Small]], LineBox[List[List[1600, 0.01`], \
List[3000, 0.01`]]]]], \\\",\\\", RowBox[{\\\"AxesLabel\\\", \\\"\[Rule]\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"f\\\", \\\",\\\", \\\"\\\\\\\"\[CapitalIota]/A\
\\\\\\\"\\\"}], \\\"}\\\"}]}], \\\",\\\", GraphicsBox[List[PointSize[Medium], \
PointBox[List[2321.5`, 0.01`]]]]}], \\\"]\\\"}]\\) \:4e2d\:7684\:56fe\:5f62\
\:5bf9\:8c61.\"",2,136,47,27747148939677198968,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.781243422447709*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[136]:=",ExpressionUUID->"1d679355-018c-4bf6-\
8947-e42882296710"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   GraphicsBox[{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwVlXk8VO8Xx5VsFS12FUqWkrIU0nJO5Su7LGNrIcY+GLssWWZEZGsXmZk7
w1TKlkqhkJSSpMWaJJVKJSlE/O7vr/t6v557n/P5fM55nrvaI9jOa76AgMDm
eQIC/3/6esWLCAjk4b2zJVXOblYAVRM3bs3Lw+6HDQZTVCuQEQylBgvm4bmf
x13z/a3gPtu7oV84D3mWSslDEVag2GcTWyeeh+EHBILST1jBS7s1P2JW5KGJ
t5Kb6h0rQHz4+rd+Hh7UCxsrkLEG2RXLir8G5mH726f1d19aQ+N4oqHMhzwc
07SJN/tvH3Q+ZWzY73ABZ527Vm1XsQWdg6kHQxou4MRWlenkJXaQutQnudkg
Hyfl1rtXqduDyf1uUf3ifLySZCA+buIA8y5oMIZWFeDr/tqcrkIKzFePNqKe
KkAN+QB5UVknoF13tZ8VuIhWAg6vEgqdocNT3r0z6iI2uuxNy4p1BUIyoO3x
x4toHGxg8jXsANw6Unck274QP8foiMoVHYJHgiNyp1oKUX9I/Nz5cnfYk3lN
vsKAhQrXdY/LbfCAScHEzKytLDS7qhwrqucBpTF282jbWBiUb7Hq31YPUPCd
GFYDFgrLfWSO7/WAsd27qgtMWOgc5kxdSfUA9uRLxzQKC6X1zHMdLnrArOfM
KbcwFtqUCzscl/SE20YWEhJlLORnGMlrL6WCadWyh4PlLKyIejZiJUeF11pd
CbcqWfgx5NCZEGUqjCt7/XS/ycKFgrfjH2tTQVsk4eX1Ohb+EDNzum9LhUsv
Ki+4tJLf+0hcen2aCmdpCupFn1nYHT5hW6HkBUbPxpUUl7Nx3fOYrAYzbxDQ
XVExSfL4zCGBd3be0Hx61+4XkmysmcqREjngDfauWdQ0aTYK0xLAJ8gbaB/U
L4/JsfGq4QeP6FPeUDjtqvtQiY0REm/lhvq9QVCjwZiuxUZ1+pkZqVgfaE3M
9Gs0ZaNO867p/Me+0JOfH11mxkaN0Z+ns1/7wvDNy6kF5mwU6w32yBz0BaFv
D4oiLdk4GPO+hf/XF3a6zL5bv4+NcY//qbpo+kG5TrDrKSc2WjyqXXc7yw9O
D+6zoHqzcdlL05nHB/3hgLGUljCTjeHr6mYPKtPAL+UD/T3JY1L+QZYbaRDZ
fLOqPoWNi+JC/5hsp0GOqcv22FSSFyw57u5MgybLQovRdDYGDMjYqOfSQIui
4d+Ty8YNEYKUpUKBMOu1nV/KYuN82nX92j+BsIgv/jWDzcbl14xFLYSDQG64
f6Mfh40hT3U/fJIOAl3/pJsqXDb+qdMUstwSRGbY/OB8MRt/iVfevRceBO2R
+4aSr7Exh8WgUf8EASeVutqpho13CpdK5c6nw5/EVe9Nasn+0ByzhBbTwTLm
NU+/jswjR5hgSJPrNFMNmXtsvFl24lGBBh3M7TZsetXIxvPdJjHGNnQYWzm+
3f4xG/WyVL6EF9JhdyXD2aabjddXrHe/bRwC50q2K0APG9/8q5mMsQmBEd7v
3o29bDQS2/p+r2sInD3n4ybxho32U3mfBekh8CXOwvvpABsVhfccFi4IgVN7
JcMthtkoeTz90O4/ITDUR2TvnWBjaeZCEaGqUCjufPVLd5KNzTeDz0nXh4JP
h6iz4hQbP0dJTOu2hsKXh0HKv/+yUVC2O/b0UCiMVhpVELNsnLLbrzouHQb/
0jo6/glxcEfymNnm2DCQ2TJfpkqKg/o7N/+nuS8cujZtiWFJc3Cp+KLPvw+G
Q9563/50GQ6K2+nTnwWEw0rltuLDchwcbnoSUJYaDiqLLhgsWcnBsnX+39fW
h4P2Ox0XfxUOMqy0W8b1IsAs83CBsi4HuWuybPPVI2FhqdOWGZK7hFtH7fQj
4XGbVVunHgcHccxM/r9IMF9qJJC9hYNWu4ZcOzwiwfLUcuo/Qw462TiaThRG
wr68+5o9wMFoFUasjEIUOBap1pyy4uC7H2p64yuiwbPuc7ewHwcfmZtFtNjE
AO3sw9FxksWVbReKUGMgPLhI5L0/B4urp847RccAc/XhLfdoHFzyKypJhxMD
xSldOVF0DqZXqlAf/oqBz1YP9w5HcbDOi8EKLoiF4H7ejZZjHGSf3XFr5XQc
xM655Z7gcXD3kaKUZ0MJkDwr8Ma/iIOjG32dNk8nQPo/joZZMQezM2TCn4km
wvnp9/eELnHQ2+Dct11KieTvxOf70RIO7jMVpOyyTITvP4ItQio5qBq1DeOL
E8FjIEHIsZ6D/UL9561ck8DvrbLt5gYObr1wvIXulQT0/oaC5Y0c/NfzRD+b
ngQJfYKbn90n97uAGbXHkqCgK9XD9CGpX7BpR3tlErxqz75n1MbB0ImIkFyx
ZDBtYB1R6iPzFih88rs0GWob7vhMkdz0I8WNW50M2o2vKC/ekH7fxavvakwG
2fuLdFPfclDQeXWTxatk+NgU9eX7IAfnHVDdePJvMjAf2ey/+5mDURdvtabv
YsDkI3+z81/IetW7dBabM4DWkmIQ+pWD9MIvQVF2DLB/XCOp9o2DBb9t34h5
MmBNq3pr5igHX27c4S/JYED9s7ntByc4+MVVpfTwXQZsblfQNJjk4D2H+nTb
Bwy41L5FftkUB6WHXy5VbWVA9vOA301/OfjeJK0oopsBh150XtswS/rfUz9X
OcaAjhdj+cJzHPxRd1H75iQDTF6Kpw+QbFacBhdmGaD1ao/36XkEbnSUvSy4
kAkzr8sUZxYQaPLT+LWdEhPonY8XvxYi0FTutrzDWiYMdX74WyZM4GS9xAO9
dUx40rWi01OUwNoTc/qZukzY2a3/YIcYgZy3/WHCBkyo7La9LruQwCM5O4UO
bmPChZ7U7CeLCAzxyFLj7GGCRC8RX7SYwO8zH7dl7WVCcm9dQII4gU5eReVO
Fkzw6/u1V28JgZt9I7qP2jGhr09CX3wpqU9mv0ofhQn73qxb+4lkmzb3SSkX
Jhj2uwnkLycwt2R/qpwbE8bPetBSJQnsbPJ6vsqDCeU2Xl1hUgTad8m4TVCZ
QBP1NXaXJvCjTuYcz4cJ6g3+5ZYyBE4FqKWo+TNh8Ejgyq2yBC5sTnsQS2NC
oS49TVWOwJn2kjxeEBNcv4aOL5MnMD1w4A2bzgQZXoT7LMmD8l0h9FAmdByI
bv2iQKBERomhZDgTsqRjDTtXEPg6e0DueAQTzNviefdXEuhsFDzzPJIJQqmJ
S8tXEZhh3dz+LYoJ9cCIK1Ak8MqvtmN90UyIm0wZTlMicCX/x/LCI6TfijSH
CGUC84MlAnVjSL9+GfWHVxP4wuZkTh7J5WuyNlivIfDZhGfcC5JpvTnnjVQI
FL3xTXeAZI3TpxaoryVwNUfhzj2S31uepUuqEli/hLIilORCoby+OZI3bmd6
TpD1XO/mm46okfoNxLg2JMtEFVZ1qRP4WaHmWwypr2MTR/mBBpln9KDrEVJ/
1jD3RMU6ArsVNgtZkP7MOMWTF9eT8zLvycJRMo8Frpep6ZoEHr6+OtM3jPS7
/Gp75AYCn75cWFEVQvp9UrrdU4tATenLhS+DSb/Miks2GwkspHknPQpkQtnv
m4ka2gSK5ywb2uDHBP/S2yNSOgRat799fNGbCWo+tc7zdMn8ZaPD33uSfroa
tHv0yPll9899O0j6yW0qaN5M4N88+cPXXZkgbf5Q9PoWApdEv2FYOzHhRE3r
QIYBgezl1RtE9jHBNPyZZbQhgaUPlMxULUn9Wh3V1K0Eajw/Za9gyoTYws6c
HdvIvOpz4tKB1JM0iD92EnimTqv8xAZSj9GHq71AYIGLT02AOjlfY5/kHiGB
SVJ+qWvXMMGF+m2UvZusn57xe60sWW/vJNvOhMBtM0Ic2hwDFghML4a9BIqd
Xa2gOkXeF9X/ojVNCWyILyy5Q553g/WCtgvMCdzDez549AMD1MQl5t20IvBq
sX1MdAsDBr6+4Jy0JjC7RaOU18iA/Md5u4NtCAxizpTfqGHA0jRVpoYtgakH
ym6kXmPA3/k7RPIdCAx0I7r/ZDOgbTJAPHE/gWEDZp379zEgaqhF3tyPQG8u
zVeevC9172ffUfMn+5t4xYhP3qcjHMp+wQAC46UKrquVJYOH27uCWhqBXwdo
q2fyk8GyZ1JpE53AZULe8YsikkG5XV1NKoqcHwcxYwnVZHhUk6LbzyTwUNgt
B5GEJPCN+/qmqJ7MN6EkTNMpHjqlJFk5DQRiofYe493xYHLNyD22kUCWMN2e
phUPa/uPD+5rIvDOW6PbXwTjYQA0Pk0/JN+njn7lVsSBi6DXqO0zAnfmltQr
Lo0D8/T++bNvCLT9FvDpVncM3F4j3DTcT2Ci3pblQ80xoFGjlfLiLXk+i5qL
V1fFgPBInMjld6Q/h/Urn2fFQKPVisUOHwhUV8k+Ou+/GDBa5ix9ZYTM9zgz
+VLVEdA8/1zdcZpAQnA0foodDecda1fpzJDnP129ISg3GoSl+ZKL/xE4ErLr
wVhSNAzmxs01zBKodP/kqJpnNFzIUO/Ums9Fm1KHkZ1q0SCWEH9MSIyLZSlh
11TLouCT17oPVTJcHP1NZKc9iQSHtVK92bJc3HhY/Pr9ukhoHJxt95fjYjgr
32FxeSQUur2sVVbgorOE0vsHpyPB0SXh9IlVXDS0CHjXdSgSHli+2kNdy0Xm
mfjOsN8RwNVLIiR1uRhYefuY+oYIcL5iLzNPj4sTOSkG44oRILFaLf07yXS3
ij9tyyIgRuJJSMsWLlqjjXvpRDjYfZbalbCVi2mTW9dINoWDAOvS2y/IRdY8
3xhvt3A4tLB9ZaMNF9U3x15oZoWBVBKRU7aPi89aKBn6p8Pg8UT4gou2XIx9
F32uMi0M9D/Ij0TZc3H4S/WDtpAwEK/3rNFy4uKlB/XdZ4zDoDZiwiXvEBfH
NOpF7EZCQf6d4jl6IBerdfbmKBqHQlt8FVgHkfmx/mQTRqGQrGA+rBnMRZPX
ySc36YTCiH3E1k90Lu5X2BVBVQyFu81Peg+Gc/HlQutUw6kQoF6NVraI5aKD
RMf1xPIQKI3quKx6nItDaxbuNVcNAWOJY7U9PDKv1XMqFap08Lp6RqSqiIun
F0ylWSvS4Zh5kV1mMRfHdXxcxmTo0HKsaRgucTGo9LmilSgdrOfmSxeVkOsr
8nsKXgeD02hCYHAlF6uWeR37RQ0G/44jigvqyf4uixVPSQ+C3LOBiVq9ZP+f
/Fjl9YcGf0eoZvJ95H7T/vI+n2lA3XNgudAbLoa6SNPD+2igP2rO6+vn4hWO
6mR5Iw16zDQeZQxyce2d2omybBqs/Te45MtnLlIbZ2XvaNLgpqczq3iSi37V
3xuLAgKgT3vPXSUZHm6z3JRiLuoPxtf+1UyTvNpwcC5y1g+urqu+3SnLw7Uq
2t1Xxv0gbo3WjWx5Hl4W907TeOcHK6Vkr86t5OFE9U+B2Dt+cGDiS95bFR6q
So9VRwT5QV/dyQiWDg9/mTVpZ/f6Qp/54AYlKx7aDAcs7XzkAycSmJfErXk4
Jdvo++ueD2yvUls7Q3K/gnaozC0fKFgVsKJ7Hw8bjOJj6UU+cGD0l9gpBx4y
e5XYYck+0HdG6JPwAR6u8/25vHyHD/QOaHC++/NQccbhREe1N/REBkvfTeMh
L6p1y+F6L8hc07zRv56HoqMJD4XVqOCx7uLH2T/kOs3rZc8TD9iy20NOT7cI
WzzCRT4fOwx1PaMx4X5FKNUT/cnuqDvsSQl0ohQVoX+//LFDC9xgJN2/Q3Gg
CIv7z7LdbA6C2VKdo79lilG1zlxg+/v9wON/4AbYFWPvkEff6URXqLrr+ff7
8WKUtmpvfUJxgU/aHj9c64vROTJdW8jCGeRuWB/yni7GyZ2hQwv2OMFs9YLZ
o7p8FBvLlc467Ag2Jf/mRejx0SXio37LQUdgX/wjFLCZjx9L1lcLuTrCnuRh
cSd9Pp4RPtqZbOcIaRatqzYZ8fHba9vwzD2OsLz/1I63u/hI7zua+F7VEVQF
VeLBlo8BeoZPM79SIPL3iqQtdnyMYp9J/PWJAo8+SaVo2vPx7pX7ca5DFPBv
Fc6UpfAx8O0zyw1vKFB65kvBD2c+3lOONnzbRgFDjcpaljsfF7XJFSdVUuC4
Qkn9mcN8dPB+enq6lAI9i3lNGR58NKhgNESWUCD+55nWKCofnxnYddB5FGi8
c6TPxpePL/oV7oWdpYDktdCB//z4aH0xPmPiJAWorIChbf58PFLDz4nLpoAI
8+CIOo3M40Ld7vQ0CjhHOo6uCuRj7g7378tTKHDF12ZcMoiPZQsM2wuSKDDt
ajopFkzmkcD5pH6UApZWu2bmSE6tmNKriqHA/wBAyf1B
         "]]},
       Annotation[#, "Charting`Private`Tag$47721#1"]& ]}, {}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{1600, 0.0008963759549629121},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, 
       Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
       Charting`ScaledFrameTicks[{Identity, Identity}]}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
      AbsolutePointSize[6], "ScalingFunctions" -> None, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{1600, 3000}, {0.0008963759549629121, 0.009999991945472533}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[
    {Dashing[{Small, Small}], LineBox[{{1600, 0.01}, {3000, 0.01}}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "\<\"\[CapitalIota]/A\"\>"}], "}"}]}], ",", 
   GraphicsBox[
    {PointSize[Medium], PointBox[{2321.5, 0.01}]}]}], "]"}]], "Output",
 CellChangeTimes->{{3.7812433607837076`*^9, 3.7812434224576488`*^9}},
 CellLabel->
  "Out[136]=",ExpressionUUID->"c6004b9a-3985-426c-a4ef-dda9933fbe63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{"x", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7812436368461876`*^9, 3.781243811070351*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"33f2289f-3c84-4cfe-9b3b-53aaa422e4c4"],

Cell[BoxData[
 GraphicsBox[{
   {PointSize[Medium], PointBox[{1, 1}]}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJxFxW0w03EcAPCNdZRrjMr9adxE5SlOUlKpuMhDndHJ5emEtJ6QO+nqtG6T
PMR1OynPDyntGNlcl4lj547zEONGN5tmp7F5KrNGtuqF7+/F5z6UhHvUJAMc
Dhf6z/+DkhSj3fNJZ7Yn+FmlSjF/3+2PVpWWt2ERcPCQ6GMFlghHJmo6X2IZ
8LTbM79CjAFX772ck4exYLpx26HnWD18NaqGs7LKhU309OgAmy7YIWxJ0Zsv
gDOHvX1L1/phSy5JgsePwO0yv8GRU2NwD63COko1DqsPnjZtuiOCDbRsM2uH
b7CXPr49vFkMDzI8h/ucpLBtsVLbuDQDKzVSyYS7DK5f6BggvpiFieR3y3K5
HC64yUuutp+D18+y5SnZP+AMDwF3X68CljYL8kcpC/AmbbzM8aESdj5npEvu
UMEBtZQbrZZLcCY5zu579DLsorpiIgpdgS1MV4wFG2hCVxnnQPkqfMuzY2pn
8E+YfTGh+ss6Wq20Mpsr+QXzwgMMWf5rcHYgs4o7h6ZMB03WMdXwyeMMFuax
DkfbjGjxQrR6oFCWStfApYTYDKr9b9hCwqs1EKB3PKZHeKdpYVxjLEdmvgGn
v+EUmvegO51zjUl3N2FSULrLU+IfWOz6VZjFR7dU+trLY7fgGI4XiaxDP2HW
0MUfdHCTglxGDNHDuRXMeMkldCJ10aE5DL2fz28JjUTnFV3rK0hAp3i9Xt2V
hbZj7Ak0akDrTjzaLXqPnlqcHWtgo4sj22IutKL1TtT7TD5aPFpUaShEf8rR
XBdOoFk+cY51k+jgt0e45yXozw+G+unz6BLXY0VhKnSarDyCsow+HHJb2r2G
JuDH64s16BmeDy1+A82n1bm5b6Ff2Zqo9Xr0X7rRg+M=
        "]]},
      Annotation[#, "Charting`Private`Tag$48110#1"]& ]}, {}, {}}}]], "Output",
 CellChangeTimes->{{3.781243211114274*^9, 3.7812432632508626`*^9}, {
  3.7812436794892435`*^9, 3.781243744159581*^9}, {3.7812437852754955`*^9, 
  3.7812438118761935`*^9}},
 CellLabel->
  "Out[144]=",ExpressionUUID->"9f09692d-9402-4308-97f7-7f7727e1d0a9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
    RowBox[{"Point", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.781244944902457*^9, 3.7812450215735517`*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"17d2fa6c-9f21-43a3-a39c-f00b2252c11d"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7812451490802436`*^9, 
  3.7812451505223846`*^9}},ExpressionUUID->"45a3b43d-a274-4820-be1c-\
0ebe5f9b52fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "=", "100"}]], "Input",
 CellChangeTimes->{{3.7812570940136967`*^9, 3.781257099000538*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"f483ad2d-9925-4547-9cfb-0f8d6ea9e816"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.781257099717618*^9},
 CellLabel->
  "Out[209]=",ExpressionUUID->"f6bc2c5f-5443-477b-b4f6-43d9c3ca6e32"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "All", "]"}]], "Input",
 CellChangeTimes->{{3.781257106773733*^9, 3.781257122251851*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"acb6f52e-8c54-4e4e-a6f1-c8f53fd1e110"],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7812571290117273`*^9, 
  3.7812571308458185`*^9}},ExpressionUUID->"0b492aa8-dca0-414d-89eb-\
8b18f57807ce"],

Cell[BoxData[
 TemplateBox[{
  "Clear","wrsym",
   "\"\:7b26\:53f7 \\!\\(\\*RowBox[{\\\"All\\\"}]\\) \:88ab\:4fdd\:62a4.\"",2,
   210,72,27747148939677198968,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.781257123464572*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[210]:=",ExpressionUUID->"e242fa91-5565-4c26-\
b20d-98f89d780efe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"A", "[", "100", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"f", ",", "1600", ",", "3000"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"f", ",", "\"\<\[CapitalIota]/A\>\""}], "}"}]}]}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2321.5", ",", "0.01"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"f0", ",", "A1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"f1", ",", "A1"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1600", ",", "0.01"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3000", ",", "0.01"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1600", ",", "A1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3000", ",", "A1"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"f1", ",", "A1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"f1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"f0", ",", "A1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"f0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Epilog", "->", 
     RowBox[{"Inset", "[", 
      RowBox[{"\"\<f0\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"2321.5", ",", "0.01"}], "}"}]}], "]"}]}], "*)"}], 
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
   "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.781243857848902*^9, 3.7812439434326873`*^9}, {
  3.7812445030925283`*^9, 3.781244512895262*^9}, {3.7812446523795385`*^9, 
  3.7812448785778213`*^9}, {3.781245028420227*^9, 3.7812450314521136`*^9}, {
  3.781245069729991*^9, 3.781245138404815*^9}, {3.7812452139781*^9, 
  3.7812452668148937`*^9}, {3.781245307668707*^9, 3.781245549645275*^9}, {
  3.781245948913881*^9, 3.7812459644103637`*^9}, {3.781246436053154*^9, 
  3.78124656990434*^9}, {3.781246685200753*^9, 3.781246692668729*^9}, {
  3.781257043257268*^9, 3.7812570734557533`*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"9c38f853-c8a5-4579-b613-84a85a60acee"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk8VO8Xx5VsFS12FUqWkrIU0nJO5Su7LGNrIcY+GLssWWZEZGsXmZk7
w1TKlkqhkJSSpMWaJJVKJSlE/O7vr/t6v557n/P5fM55nrvaI9jOa76AgMDm
eQIC/3/6esWLCAjk4b2zJVXOblYAVRM3bs3Lw+6HDQZTVCuQEQylBgvm4bmf
x13z/a3gPtu7oV84D3mWSslDEVag2GcTWyeeh+EHBILST1jBS7s1P2JW5KGJ
t5Kb6h0rQHz4+rd+Hh7UCxsrkLEG2RXLir8G5mH726f1d19aQ+N4oqHMhzwc
07SJN/tvH3Q+ZWzY73ABZ527Vm1XsQWdg6kHQxou4MRWlenkJXaQutQnudkg
Hyfl1rtXqduDyf1uUf3ifLySZCA+buIA8y5oMIZWFeDr/tqcrkIKzFePNqKe
KkAN+QB5UVknoF13tZ8VuIhWAg6vEgqdocNT3r0z6iI2uuxNy4p1BUIyoO3x
x4toHGxg8jXsANw6Unck274QP8foiMoVHYJHgiNyp1oKUX9I/Nz5cnfYk3lN
vsKAhQrXdY/LbfCAScHEzKytLDS7qhwrqucBpTF282jbWBiUb7Hq31YPUPCd
GFYDFgrLfWSO7/WAsd27qgtMWOgc5kxdSfUA9uRLxzQKC6X1zHMdLnrArOfM
KbcwFtqUCzscl/SE20YWEhJlLORnGMlrL6WCadWyh4PlLKyIejZiJUeF11pd
CbcqWfgx5NCZEGUqjCt7/XS/ycKFgrfjH2tTQVsk4eX1Ohb+EDNzum9LhUsv
Ki+4tJLf+0hcen2aCmdpCupFn1nYHT5hW6HkBUbPxpUUl7Nx3fOYrAYzbxDQ
XVExSfL4zCGBd3be0Hx61+4XkmysmcqREjngDfauWdQ0aTYK0xLAJ8gbaB/U
L4/JsfGq4QeP6FPeUDjtqvtQiY0REm/lhvq9QVCjwZiuxUZ1+pkZqVgfaE3M
9Gs0ZaNO867p/Me+0JOfH11mxkaN0Z+ns1/7wvDNy6kF5mwU6w32yBz0BaFv
D4oiLdk4GPO+hf/XF3a6zL5bv4+NcY//qbpo+kG5TrDrKSc2WjyqXXc7yw9O
D+6zoHqzcdlL05nHB/3hgLGUljCTjeHr6mYPKtPAL+UD/T3JY1L+QZYbaRDZ
fLOqPoWNi+JC/5hsp0GOqcv22FSSFyw57u5MgybLQovRdDYGDMjYqOfSQIui
4d+Ty8YNEYKUpUKBMOu1nV/KYuN82nX92j+BsIgv/jWDzcbl14xFLYSDQG64
f6Mfh40hT3U/fJIOAl3/pJsqXDb+qdMUstwSRGbY/OB8MRt/iVfevRceBO2R
+4aSr7Exh8WgUf8EASeVutqpho13CpdK5c6nw5/EVe9Nasn+0ByzhBbTwTLm
NU+/jswjR5hgSJPrNFMNmXtsvFl24lGBBh3M7TZsetXIxvPdJjHGNnQYWzm+
3f4xG/WyVL6EF9JhdyXD2aabjddXrHe/bRwC50q2K0APG9/8q5mMsQmBEd7v
3o29bDQS2/p+r2sInD3n4ybxho32U3mfBekh8CXOwvvpABsVhfccFi4IgVN7
JcMthtkoeTz90O4/ITDUR2TvnWBjaeZCEaGqUCjufPVLd5KNzTeDz0nXh4JP
h6iz4hQbP0dJTOu2hsKXh0HKv/+yUVC2O/b0UCiMVhpVELNsnLLbrzouHQb/
0jo6/glxcEfymNnm2DCQ2TJfpkqKg/o7N/+nuS8cujZtiWFJc3Cp+KLPvw+G
Q9563/50GQ6K2+nTnwWEw0rltuLDchwcbnoSUJYaDiqLLhgsWcnBsnX+39fW
h4P2Ox0XfxUOMqy0W8b1IsAs83CBsi4HuWuybPPVI2FhqdOWGZK7hFtH7fQj
4XGbVVunHgcHccxM/r9IMF9qJJC9hYNWu4ZcOzwiwfLUcuo/Qw462TiaThRG
wr68+5o9wMFoFUasjEIUOBap1pyy4uC7H2p64yuiwbPuc7ewHwcfmZtFtNjE
AO3sw9FxksWVbReKUGMgPLhI5L0/B4urp847RccAc/XhLfdoHFzyKypJhxMD
xSldOVF0DqZXqlAf/oqBz1YP9w5HcbDOi8EKLoiF4H7ejZZjHGSf3XFr5XQc
xM655Z7gcXD3kaKUZ0MJkDwr8Ma/iIOjG32dNk8nQPo/joZZMQezM2TCn4km
wvnp9/eELnHQ2+Dct11KieTvxOf70RIO7jMVpOyyTITvP4ItQio5qBq1DeOL
E8FjIEHIsZ6D/UL9561ck8DvrbLt5gYObr1wvIXulQT0/oaC5Y0c/NfzRD+b
ngQJfYKbn90n97uAGbXHkqCgK9XD9CGpX7BpR3tlErxqz75n1MbB0ImIkFyx
ZDBtYB1R6iPzFih88rs0GWob7vhMkdz0I8WNW50M2o2vKC/ekH7fxavvakwG
2fuLdFPfclDQeXWTxatk+NgU9eX7IAfnHVDdePJvMjAf2ey/+5mDURdvtabv
YsDkI3+z81/IetW7dBabM4DWkmIQ+pWD9MIvQVF2DLB/XCOp9o2DBb9t34h5
MmBNq3pr5igHX27c4S/JYED9s7ntByc4+MVVpfTwXQZsblfQNJjk4D2H+nTb
Bwy41L5FftkUB6WHXy5VbWVA9vOA301/OfjeJK0oopsBh150XtswS/rfUz9X
OcaAjhdj+cJzHPxRd1H75iQDTF6Kpw+QbFacBhdmGaD1ao/36XkEbnSUvSy4
kAkzr8sUZxYQaPLT+LWdEhPonY8XvxYi0FTutrzDWiYMdX74WyZM4GS9xAO9
dUx40rWi01OUwNoTc/qZukzY2a3/YIcYgZy3/WHCBkyo7La9LruQwCM5O4UO
bmPChZ7U7CeLCAzxyFLj7GGCRC8RX7SYwO8zH7dl7WVCcm9dQII4gU5eReVO
Fkzw6/u1V28JgZt9I7qP2jGhr09CX3wpqU9mv0ofhQn73qxb+4lkmzb3SSkX
Jhj2uwnkLycwt2R/qpwbE8bPetBSJQnsbPJ6vsqDCeU2Xl1hUgTad8m4TVCZ
QBP1NXaXJvCjTuYcz4cJ6g3+5ZYyBE4FqKWo+TNh8Ejgyq2yBC5sTnsQS2NC
oS49TVWOwJn2kjxeEBNcv4aOL5MnMD1w4A2bzgQZXoT7LMmD8l0h9FAmdByI
bv2iQKBERomhZDgTsqRjDTtXEPg6e0DueAQTzNviefdXEuhsFDzzPJIJQqmJ
S8tXEZhh3dz+LYoJ9cCIK1Ak8MqvtmN90UyIm0wZTlMicCX/x/LCI6TfijSH
CGUC84MlAnVjSL9+GfWHVxP4wuZkTh7J5WuyNlivIfDZhGfcC5JpvTnnjVQI
FL3xTXeAZI3TpxaoryVwNUfhzj2S31uepUuqEli/hLIilORCoby+OZI3bmd6
TpD1XO/mm46okfoNxLg2JMtEFVZ1qRP4WaHmWwypr2MTR/mBBpln9KDrEVJ/
1jD3RMU6ArsVNgtZkP7MOMWTF9eT8zLvycJRMo8Frpep6ZoEHr6+OtM3jPS7
/Gp75AYCn75cWFEVQvp9UrrdU4tATenLhS+DSb/Miks2GwkspHknPQpkQtnv
m4ka2gSK5ywb2uDHBP/S2yNSOgRat799fNGbCWo+tc7zdMn8ZaPD33uSfroa
tHv0yPll9899O0j6yW0qaN5M4N88+cPXXZkgbf5Q9PoWApdEv2FYOzHhRE3r
QIYBgezl1RtE9jHBNPyZZbQhgaUPlMxULUn9Wh3V1K0Eajw/Za9gyoTYws6c
HdvIvOpz4tKB1JM0iD92EnimTqv8xAZSj9GHq71AYIGLT02AOjlfY5/kHiGB
SVJ+qWvXMMGF+m2UvZusn57xe60sWW/vJNvOhMBtM0Ic2hwDFghML4a9BIqd
Xa2gOkXeF9X/ojVNCWyILyy5Q553g/WCtgvMCdzDez549AMD1MQl5t20IvBq
sX1MdAsDBr6+4Jy0JjC7RaOU18iA/Md5u4NtCAxizpTfqGHA0jRVpoYtgakH
ym6kXmPA3/k7RPIdCAx0I7r/ZDOgbTJAPHE/gWEDZp379zEgaqhF3tyPQG8u
zVeevC9172ffUfMn+5t4xYhP3qcjHMp+wQAC46UKrquVJYOH27uCWhqBXwdo
q2fyk8GyZ1JpE53AZULe8YsikkG5XV1NKoqcHwcxYwnVZHhUk6LbzyTwUNgt
B5GEJPCN+/qmqJ7MN6EkTNMpHjqlJFk5DQRiofYe493xYHLNyD22kUCWMN2e
phUPa/uPD+5rIvDOW6PbXwTjYQA0Pk0/JN+njn7lVsSBi6DXqO0zAnfmltQr
Lo0D8/T++bNvCLT9FvDpVncM3F4j3DTcT2Ci3pblQ80xoFGjlfLiLXk+i5qL
V1fFgPBInMjld6Q/h/Urn2fFQKPVisUOHwhUV8k+Ou+/GDBa5ix9ZYTM9zgz
+VLVEdA8/1zdcZpAQnA0foodDecda1fpzJDnP129ISg3GoSl+ZKL/xE4ErLr
wVhSNAzmxs01zBKodP/kqJpnNFzIUO/Ums9Fm1KHkZ1q0SCWEH9MSIyLZSlh
11TLouCT17oPVTJcHP1NZKc9iQSHtVK92bJc3HhY/Pr9ukhoHJxt95fjYjgr
32FxeSQUur2sVVbgorOE0vsHpyPB0SXh9IlVXDS0CHjXdSgSHli+2kNdy0Xm
mfjOsN8RwNVLIiR1uRhYefuY+oYIcL5iLzNPj4sTOSkG44oRILFaLf07yXS3
ij9tyyIgRuJJSMsWLlqjjXvpRDjYfZbalbCVi2mTW9dINoWDAOvS2y/IRdY8
3xhvt3A4tLB9ZaMNF9U3x15oZoWBVBKRU7aPi89aKBn6p8Pg8UT4gou2XIx9
F32uMi0M9D/Ij0TZc3H4S/WDtpAwEK/3rNFy4uKlB/XdZ4zDoDZiwiXvEBfH
NOpF7EZCQf6d4jl6IBerdfbmKBqHQlt8FVgHkfmx/mQTRqGQrGA+rBnMRZPX
ySc36YTCiH3E1k90Lu5X2BVBVQyFu81Peg+Gc/HlQutUw6kQoF6NVraI5aKD
RMf1xPIQKI3quKx6nItDaxbuNVcNAWOJY7U9PDKv1XMqFap08Lp6RqSqiIun
F0ylWSvS4Zh5kV1mMRfHdXxcxmTo0HKsaRgucTGo9LmilSgdrOfmSxeVkOsr
8nsKXgeD02hCYHAlF6uWeR37RQ0G/44jigvqyf4uixVPSQ+C3LOBiVq9ZP+f
/Fjl9YcGf0eoZvJ95H7T/vI+n2lA3XNgudAbLoa6SNPD+2igP2rO6+vn4hWO
6mR5Iw16zDQeZQxyce2d2omybBqs/Te45MtnLlIbZ2XvaNLgpqczq3iSi37V
3xuLAgKgT3vPXSUZHm6z3JRiLuoPxtf+1UyTvNpwcC5y1g+urqu+3SnLw7Uq
2t1Xxv0gbo3WjWx5Hl4W907TeOcHK6Vkr86t5OFE9U+B2Dt+cGDiS95bFR6q
So9VRwT5QV/dyQiWDg9/mTVpZ/f6Qp/54AYlKx7aDAcs7XzkAycSmJfErXk4
Jdvo++ueD2yvUls7Q3K/gnaozC0fKFgVsKJ7Hw8bjOJj6UU+cGD0l9gpBx4y
e5XYYck+0HdG6JPwAR6u8/25vHyHD/QOaHC++/NQccbhREe1N/REBkvfTeMh
L6p1y+F6L8hc07zRv56HoqMJD4XVqOCx7uLH2T/kOs3rZc8TD9iy20NOT7cI
WzzCRT4fOwx1PaMx4X5FKNUT/cnuqDvsSQl0ohQVoX+//LFDC9xgJN2/Q3Gg
CIv7z7LdbA6C2VKdo79lilG1zlxg+/v9wON/4AbYFWPvkEff6URXqLrr+ff7
8WKUtmpvfUJxgU/aHj9c64vROTJdW8jCGeRuWB/yni7GyZ2hQwv2OMFs9YLZ
o7p8FBvLlc467Ag2Jf/mRejx0SXio37LQUdgX/wjFLCZjx9L1lcLuTrCnuRh
cSd9Pp4RPtqZbOcIaRatqzYZ8fHba9vwzD2OsLz/1I63u/hI7zua+F7VEVQF
VeLBlo8BeoZPM79SIPL3iqQtdnyMYp9J/PWJAo8+SaVo2vPx7pX7ca5DFPBv
Fc6UpfAx8O0zyw1vKFB65kvBD2c+3lOONnzbRgFDjcpaljsfF7XJFSdVUuC4
Qkn9mcN8dPB+enq6lAI9i3lNGR58NKhgNESWUCD+55nWKCofnxnYddB5FGi8
c6TPxpePL/oV7oWdpYDktdCB//z4aH0xPmPiJAWorIChbf58PFLDz4nLpoAI
8+CIOo3M40Ld7vQ0CjhHOo6uCuRj7g7378tTKHDF12ZcMoiPZQsM2wuSKDDt
ajopFkzmkcD5pH6UApZWu2bmSE6tmNKriqHA/wBAyf1B
        "]]},
      Annotation[#, "Charting`Private`Tag$66422#1"]& ]}, {}, {}}, 
   {PointSize[Medium], 
    PointBox[{{2321.5, 0.01}, {2243.3, 0.00707109268725661}, {2402.45, 
     0.00707109268725661}}]}, 
   {Dashing[{Small, Small}], LineBox[{{1600, 0.01}, {3000, 0.01}}]}, 
   {Dashing[{Small, Small}], 
    LineBox[{{1600, 0.00707109268725661}, {3000, 0.00707109268725661}}]}, 
   {Dashing[{Small, Small}], 
    LineBox[{{2402.45, 0.00707109268725661}, {2402.45, 0}}]}, 
   {Dashing[{Small, Small}], 
    LineBox[{{2243.3, 0.00707109268725661}, {2243.3, 0}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["f", HoldForm], TraditionalForm], 
    FormBox["\"\[CapitalIota]/A\"", TraditionalForm]},
  AxesOrigin->{1600, 0.0008963759549629121},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1600, 3000}, {0.0008963759549629121, 0.009999991945472533}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7812452691516404`*^9, 3.7812454441939955`*^9, {3.781245537219987*^9, 
   3.781245551899212*^9}, 3.7812465743584194`*^9, 3.7812466967877665`*^9, 
   3.7812570622848654`*^9, 3.7812572015440073`*^9},
 CellLabel->
  "Out[215]=",ExpressionUUID->"d66b9672-43d8-41ff-a227-1e84aa63f56f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"A", "[", "100", "]"}], "\[Equal]", 
    RowBox[{"0.01", "/", 
     RowBox[{"Sqrt", "[", "2", "]"}]}]}], ",", 
   RowBox[{"{", "f", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.781243973697689*^9, 3.781243989032648*^9}, {
  3.7812440251339293`*^9, 3.781244046191002*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"959b5b72-6b19-44cd-99c9-c9eede750c4e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{"-", "2402.4544023806684`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{"-", "2243.29945928877`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "2243.29945928877`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "2402.4544023806684`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.781244047565325*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"107fa70a-0262-43fd-a6da-2043c6acfa79"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"f0", "=", "2243.3"}]], "Input",
 CellChangeTimes->{{3.7812443754154453`*^9, 3.781244421572669*^9}, 
   3.781244530886156*^9},
 CellLabel->
  "In[158]:=",ExpressionUUID->"792b423c-074a-4087-9bf0-c4664cd20162"],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.781244559574785*^9},ExpressionUUID->"e8faa959-5d4b-44bf-aa97-\
8791162cd085"],

Cell[BoxData["2243.3`"], "Output",
 CellChangeTimes->{3.781244423020794*^9, 3.781244532912736*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"714e5c1e-2447-46ee-94f8-4c4165b0aaca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", "=", "2402.45"}]], "Input",
 CellChangeTimes->{{3.781244813934142*^9, 3.781244822545097*^9}},
 CellLabel->
  "In[161]:=",ExpressionUUID->"c7dc4c21-6e53-451e-b01f-9485d209eb43"],

Cell[BoxData["2402.45`"], "Output",
 CellChangeTimes->{3.7812448235174932`*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"05f70922-8ef8-4407-96f8-cd835db7ef90"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781244537140419*^9, 
  3.7812445515120125`*^9}},ExpressionUUID->"551d6a4d-7883-421e-aecd-\
fd3ac8c60046"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A1", "=", 
  RowBox[{"A", "[", "100", "]"}]}]], "Input",
 CellChangeTimes->{{3.781244424933674*^9, 3.781244426785717*^9}, {
  3.781244459187005*^9, 3.7812444607059736`*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"4cbfe14a-d582-428b-9cb4-211fd1144e28"],

Cell[BoxData["0.00707109268725661`"], "Output",
 CellChangeTimes->{{3.7812444408241463`*^9, 3.781244461378137*^9}},
 CellLabel->
  "Out[154]=",ExpressionUUID->"ac1f7cb8-5dea-45ab-ab90-87b59f05cf0a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.7812444321464067`*^9, 3.781244437687541*^9}, {
  3.7812444703740616`*^9, 3.781244494449628*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"f2ad855a-7849-4d23-9954-7c02eec11e24"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7812444793859434`*^9, 
  3.7812444805757585`*^9}},ExpressionUUID->"8e1f95b0-db7b-489b-8f3b-\
71d8f20b89b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s", "=", 
  RowBox[{
  "Import", "[", "\"\<ExampleData/population.xls\>\"", "]"}]}]], "Input",
 CellLabel->"In[15]:=",ExpressionUUID->"72140cb3-3a2c-45e2-a453-aa7eea278847"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1600.`", ",", "0.0009`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1700.`", ",", "0.0011`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1800.`", ",", "0.0014000000000000002`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1900.`", ",", "0.0018`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2000.`", ",", "0.0023`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2100.`", ",", "0.0032`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2200.`", ",", "0.0049`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2220.`", ",", "0.0053`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2240.`", ",", "0.0059`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2260.`", ",", "0.006`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2280.`", ",", "0.0064`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2300.`", ",", "0.0063`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2320.`", ",", "0.0063`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2340.`", ",", "0.0062`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2360.`", ",", "0.0058`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2380.`", ",", "0.005600000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2400.`", ",", "0.0052`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2500.`", ",", "0.0034000000000000002`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2600.`", ",", "0.0024`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2700.`", ",", "0.0019`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2800.`", ",", "0.0016`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2900.`", ",", "0.0013`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3000.`", ",", "0.0011`"}], "}"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.781304295879577*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"ad1a1f42-cbf2-4694-bf52-f0f8c0f2263b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1600.`", ",", "0.0009`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1700.`", ",", "0.0011`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1800.`", ",", "0.0014000000000000002`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1900.`", ",", "0.0018`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2000.`", ",", "0.0023`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2100.`", ",", "0.0032`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2200.`", ",", "0.0049`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2220.`", ",", "0.0053`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2240.`", ",", "0.0059`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2260.`", ",", "0.006`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2280.`", ",", "0.0064`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2300.`", ",", "0.0063`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2320.`", ",", "0.0063`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2340.`", ",", "0.0062`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2360.`", ",", "0.0058`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2380.`", ",", "0.005600000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2400.`", ",", "0.0052`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2500.`", ",", "0.0034000000000000002`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2600.`", ",", "0.0024`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2700.`", ",", "0.0019`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2800.`", ",", "0.0016`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2900.`", ",", "0.0013`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3000.`", ",", "0.0011`"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.781255830778377*^9, 3.781255843727721*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"49f43a0f-6ae4-4b00-af10-2d2f092cbc26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1600.`", ",", "0.0009`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1700.`", ",", "0.0011`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1800.`", ",", "0.0014000000000000002`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1900.`", ",", "0.0018`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2000.`", ",", "0.0023`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2100.`", ",", "0.0032`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2200.`", ",", "0.0049`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2220.`", ",", "0.0053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2240.`", ",", "0.0059`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2260.`", ",", "0.006`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2280.`", ",", "0.0064`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2300.`", ",", "0.0063`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2320.`", ",", "0.0063`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2340.`", ",", "0.0062`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2360.`", ",", "0.0058`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2380.`", ",", "0.005600000000000001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2400.`", ",", "0.0052`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2500.`", ",", "0.0034000000000000002`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2600.`", ",", "0.0024`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2700.`", ",", "0.0019`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2800.`", ",", "0.0016`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2900.`", ",", "0.0013`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3000.`", ",", "0.0011`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7812558477060738`*^9, 3.7813043025639257`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"8c117de2-3372-49bc-9369-bd0d3f2dab55"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "s", "]"}]], "Input",
 CellLabel->"In[17]:=",ExpressionUUID->"bb31ae88-7fc4-457e-ada3-cc9381250759"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEzHSadrvfYX+trD+ZOmOWgn7eYcQ9rEISvMMfh
xK4dvWwfwiD8DXOh6mMhfIf5Dh4BfySKrydB+BkLHHSdZV4/MsuC8A0WOoCN
EyqB8CMWOixM3/yqeGsphN+w0OEt7z6DmVoVEP6KhQ6/6rL2lEyG8i8shJpX
BeH/WOigcCk/nv1cJdR9i1D5HoschBMPX9ZOhfILFjk8mCO4dO/Bcgh/xiKo
f8og/AOLHKZ8Y4uf4QN1T8dihwT2c5KBt7Ih/IAlDolGoQZaK5MhfImlDkf7
Dct1FeMh/AdLoe6Lgrp/GdS8UKj9y+HhCQBTAHBW
      "]]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1578.1250000000002`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1600., 3000.}, {0, 0.0064}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.781255495318713*^9, 3.781304305101118*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"9bb0c363-87c5-42db-b493-93f0bb5b3180"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Omega]", "=", 
  RowBox[{"2", "Pi", " ", "f"}]}]], "Input",
 CellChangeTimes->{{3.781255771655607*^9, 3.781255777776227*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"063870f8-85b5-4ee4-b24d-f778a162cb4b"],

Cell[BoxData[
 RowBox[{"2", " ", "f", " ", "\[Pi]"}]], "Output",
 CellChangeTimes->{3.78125577895829*^9, 3.7812561508264904`*^9, 
  3.781304151212269*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"5a5b9952-47b9-480c-98d2-99bd384b0069"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781255903920974*^9, 
  3.7812559057660017`*^9}},ExpressionUUID->"99c9926d-26a4-493f-8fe8-\
751ba7986b8f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"modle", "=", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Omega]", " ", "L"}], "-", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"\[Omega]", " ", "C"}], ")"}]}]}], ")"}], "^", "2"}], "+", 
      RowBox[{"R", "^", "2"}]}], "]"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.7812555269284353`*^9, 3.7812555461081057`*^9}, {
   3.781255616842834*^9, 3.7812556171968503`*^9}, {3.78125567749557*^9, 
   3.7812556779862576`*^9}, {3.7812559953008833`*^9, 
   3.7812559963400736`*^9}, {3.7812561187323837`*^9, 3.7812561216356134`*^9}, 
   3.7812561766862817`*^9, {3.7812563295107164`*^9, 3.7812563311513267`*^9}, 
   3.781304275547991*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"af15cc40-0fc7-489e-bfeb-5de83a26527c"],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3.3862753849339434`*^6", "f"]}], "+", 
       RowBox[{"0.6283185307179586`", " ", "f"}]}], ")"}], "2"], "+", 
    SuperscriptBox["R", "2"]}]]]], "Output",
 CellChangeTimes->{3.781256178128422*^9, 3.7812563384418135`*^9, 
  3.7813041537025924`*^9, 3.781304277995441*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"9277bb73-481d-4e9f-85fa-3e1b847803ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"modle", "[", "y_", "]"}], ":=", 
  FractionBox["1", 
   SqrtBox[
    RowBox[{"24140.458384000005`", "\[VeryThinSpace]", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["3.3862753849339434`*^6", "y"]}], "+", 
        RowBox[{"0.6283185307179586`", " ", "y"}]}], ")"}], 
      "2"]}]]]}]], "Input",
 CellChangeTimes->{{3.781256168268847*^9, 3.7812561723548746`*^9}, {
  3.7812562315928936`*^9, 3.781256273282201*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"f3ed80d7-819f-4f25-928e-d636b3fa9298"],

Cell[BoxData[
 TemplateBox[{
  "SetDelayed","write",
   "\"\\!\\(\\*RowBox[{FractionBox[\\\"1\\\", \
SqrtBox[RowBox[{RowBox[{\\\"24140.458384000005`\\\", \
\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"3.3862753849339434`*^6\\\", \
\\\"f\\\"]}], \\\"+\\\", RowBox[{\\\"0.6283185307179586`\\\", \\\" \\\", \
\\\"f\\\"}]}], \\\")\\\"}], \\\"2\\\"]}]]], \\\"[\\\", \\\"y_\\\", \
\\\"]\\\"}]\\) \:4e2d\:7684\:6807\:7b7e \\!\\(\\*RowBox[{\\\"Power\\\"}]\\) \
\:88ab\:4fdd\:62a4.\"",2,197,68,27747148939677198968,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7812561883251324`*^9, 3.781256238689782*^9, 
  3.781256274128934*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[197]:=",ExpressionUUID->"c13b308d-5acb-4741-\
a004-cb8eaf418abd"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.781256274134919*^9},
 CellLabel->
  "Out[197]=",ExpressionUUID->"2d790248-0365-409f-89f2-59638b08abc3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781256258853816*^9, 
  3.7812562602520733`*^9}},ExpressionUUID->"cfc94941-eb1b-44e6-acc3-\
49514820b892"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.781256188328125*^9, 3.7812562387316685`*^9},
 CellLabel->
  "Out[196]=",ExpressionUUID->"7b494bc3-3ee3-4601-8211-c985212f1225"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"s", ",", "modle", ",", 
    RowBox[{"{", "R", "}"}], ",", "f"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7812556395341053`*^9, 3.7812556992942314`*^9}, {
  3.78125579059492*^9, 3.7812558057124605`*^9}, {3.7812559787002373`*^9, 
  3.781255985377328*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"03ee667a-1a51-4fc9-afc9-41343cba4b6a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"R", "\[Rule]", "155.3720381843076`"}], "}"}]], "Output",
 CellChangeTimes->{3.7812558100089617`*^9, 3.7812558538107357`*^9, 
  3.7812560023702936`*^9},
 CellLabel->
  "Out[187]=",ExpressionUUID->"a953c10f-6206-4186-9e63-ae38555b3a1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "=", "155.3720381843076`"}]], "Input",
 CellChangeTimes->{{3.7813043362585125`*^9, 3.781304336498869*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"4b98fc87-c16a-4ce1-b2cd-06939f4f6ca1"],

Cell[BoxData["155.3720381843076`"], "Output",
 CellChangeTimes->{3.7813111419200563`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"d4f853c7-a72d-438c-9464-373ceb3fe8e0"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781311132924131*^9, 
  3.7813111458924246`*^9}},ExpressionUUID->"fbea922c-55f3-4d2a-a7c9-\
fd51377d85d1"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7813111509339323`*^9, 
  3.7813111509409533`*^9}},ExpressionUUID->"75ecde7a-6b5f-4556-a9d7-\
52309790b2cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "/", "R"}], "*", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"L", "/", "C"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.781310882788269*^9, 3.7813109036818585`*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"a206bd0b-eb1b-4f14-9d26-4711a58ad07a"],

Cell[BoxData["9.388110834001196`"], "Output",
 CellChangeTimes->{
  3.781310905308505*^9, {3.7813111147807274`*^9, 3.7813111531280594`*^9}},
 CellLabel->"Out[59]=",ExpressionUUID->"31c8855f-69d7-44e4-b69d-53a532854868"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781304321039243*^9, 
  3.7813043223218107`*^9}},ExpressionUUID->"8eab162e-bf85-41c7-8cc6-\
0b0ecea6e7f0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"s", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{"modle", ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "1600", ",", "3000"}], "}"}]}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f/Hz\>\"", ",", "\"\<\[CapitalIota]/A\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"R", "=", 
      RowBox[{"155.372", "\[CapitalOmega]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.781256019015784*^9, 3.7812560283238335`*^9}, {
  3.781256070846032*^9, 3.7812560867779036`*^9}, {3.7812563129620066`*^9, 
  3.7812563159051294`*^9}, {3.7812563474068213`*^9, 3.781256368683878*^9}, {
  3.7812564901076365`*^9, 3.781256577036927*^9}, {3.7813045030296855`*^9, 
  3.781304554089035*^9}, {3.7813126249177895`*^9, 3.781312638860011*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"e8f5f3db-9f10-4a3b-a2dd-b05b12e3d7dc"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEzHSadrvfYX+trD+ZOmOWgn7eYcQ9rEISvMMfh
xK4dvWwfwiD8DXOh6mMhfIf5Dh4BfySKrydB+BkLHHSdZV4/MsuC8A0WOoCN
EyqB8CMWOixM3/yqeGsphN+w0OEt7z6DmVoVEP6KhQ6/6rL2lEyG8i8shJpX
BeH/WOigcCk/nv1cJdR9i1D5HoschBMPX9ZOhfILFjk8mCO4dO/Bcgh/xiKo
f8og/AOLHKZ8Y4uf4QN1T8dihwT2c5KBt7Ih/IAlDolGoQZaK5MhfImlDkf7
Dct1FeMh/AdLoe6Lgrp/GdS8UKj9y+HhCQBTAHBW
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk4VWsbxsmQjpSQqNCIQmUqQ/U8pSK1E1mbDMlQ2IhEe+8lkohE8jkp
kazXsCuEZidK0aFCSqWQVIgoEqUMfev8sa51/a71x3s/93O/97XmewTa7Zkk
JiZWwT7/vX32hE8WE0tDnbXfL4wbcQCu/7xxSzwNVwnLe2LMOKAsEewVKJGG
PskzKqcjByqz9t5vk07DSe6KWtpbOKDeahNWLpeGgbG3qv3cOfDCbkE/PScN
u9MypOEkBxCrXw2vTMNlu4p8ZvdwYNacGXm9AWk4d8I3ri57GzwYijRR7kzD
pXwtsxPa26Gp7qius/05FNfhRxWJ24K+a6zr/vvnULE31G1Lty3EyntH/bsq
HdfJdaePj9jBpso3Mivz0lH+Vf5xMt0exM9pH+1Qy8ADGqGW/c4UTNISmHml
ZKCWd7pB2UMu+F9z2jEhdh43rL9Yb77aEZ57qu5u4p/HZYJJVcXiTkAU/eof
d53HFgXjBd5vneGWsFyYtCMTvfo2qfzocYUaiT6VlEeZaGC1f0xgshssEgtV
S1ZdwOnTEt3M/ucOpWZbpk0ruoCLXEamb7fwBLOnQxrqClloopbvc8NoD9RG
Jvo+sMrCo7K5gyU7vMFlg5KedHQW8i/zj+j+xQMm1mu+w50sdHEtsfKbEgAd
rSTJ8mcWfmuvflseGASbE90z5hkw6PsyzFuNBINnec8baV8G1e2/RlR3h4B/
avXAEMsyg+sTewdDICQwd/JHHoNlzREH5MdDIHq+u/E9fwab+8/5u8wIhbyY
16f4QQy2Dkw++ts0FHo41ZbdfAbfrbWqMz0RCoFtOTceHWMwsuzKBxm9gxD2
xy05IYfBH/b7Noh78yFqQuwtL5fB8DCrqpeBfIgfZ7Q35zE4npk/mC3gw9nR
j/ekLjI4913Hc914Phsv768R+Qx6qXq39RXw4Wt/4Jb9VxlcKGqPnvyNDx7t
h6W4FQxWl8cp5AcLwPfdPFuj+wxe+6WWH0QLIKjtfobCA1aftk+gTpQADrdK
GD2tZNDBX7/zcLIAMl7HelhVMxis6eGXVSSAlw1J98zqGcxMmqJ8oUcAVvcv
CDVaGTT3v6eWtEMIZff/8f7F8hiXw0vZKYQVD15SjW8ZlDBz64xzE8KsSlmD
2HcMbtp1qWOTnxC6qvifv35gMPnX8SjZKCFE19g43+1hsOvnzYb0AiGM1PA2
n/3MoI/jacOcEiH4P4pZFdzLYEHvrlfpN4Ww4/EdRc0vDPKaT/g6VghhQa1W
beIAg/JK80olGoVQ8fTPatefDKasF78mOywEo4bZOqtGWL9fWe8dHRHCxQZj
1Rm/GKzqFi99PSaEpGd+w1W/GTy279t7Z0kadjU2FepOMBh6alHbEQUanjcO
pkv/YVCsyUazdSYNm17IxbezHFGS6LlQlQa9lxZ7/xYnmF2cECTQoGHsVZH6
mCTBeNX2l2Y6NAQ1PZ76Soqg9Y87Vb/1aOho6vxdJE1QWzdljmgFDU9ez2ny
lCGoe6arssqYhrVvVj5cM4WgzpPxn8YmNFx9Y3tt1l8EE3lWO1PMaDjXHJv0
RJbg58vW+xSAhmktJDx3KsFolVsyRutoiGop9zssR/AN9eD8OgsafFu/WxpO
J8godMTPs6ShtXXaSjl5gvrNnXXfrGjY/nbJok8sRxze9f6KNQ0mbW5i6QoE
lacGU30cGoZSPfxjFQkGmcvbJdjQUGyz5/UBJYJ95x97KdnS4C/js2H3TIIP
Myqio+1o0LrPK96qTLAx6cWl1h00fBAGzDWdxerbU1A7l6Ih0yAobrEKwZOm
V7s2cGlw6g0emqFKkNOsNGjvQINyTujuCZYLV9f0bHVk/XcR1H6eTTClLeaR
7k4aTs4MM2maw36fVZc4xLJ1fXhO5VyClxw/GuY40SAVGylfrEbwuuOLUnNn
Girg6KEMdYKu+sHqd1g+NBLTHadBsMCHcl/gws5bEmcfOo/g3z2tUftZHvI9
UeE+n+Dlz3rRF1kuXnBSd9sCgoaVht7VLPu3nDprtpDgqSsXltWzrP13iqTW
IoKSEd1vy1j+uDU1SHExQSlTa2EKy5lSaa1//uOCh1J2LDvdTbfq0yTY2qlx
fITVo8zPvP5ai+C37PdTYll+vpyZ91CbzUchN2mcnedkd3ZCyRKCZXMS57uw
vJnJGzm/lKB5qv0jws4v6XTJK16HYCp/zalnrF8VCgUNB3XZ+brORHazfh56
cmW1px7BtW+Dcz+xfptEl1y0WUYwTT39r6fsPoqGb0ZqryA48fJ6DZfdF+9K
aZ+SPutf4ufVP9n9anqXOYobEPwn+btW5HZ2ntf3VzQbsnouDWdtYfPhlFyV
8a8RwQbZAZuTW2iYaV0tc82YoIRL+a3SzTQk3KltP7GKYNLSI6OPN9JgFfJ0
q8CEzYO39EQxm09Jvee3vUxZ/3IF0pFsfsMym06tMSfoXpEb/mY1q+fIB+xf
y+a1Yo3wkAGrx6yzoAUIBuufmF24nM3X4CeVGiQozYkNq9alYafXl4Gs9QR7
7mFnqSZ7nuVIlt0mgl2HT1Nn2fsqKTY6FSwJzpHv/qKqzPp1e1ygY8XmvYfS
PMbe91VLJWwlrQkOCkwH1WXZ8+Smid/kEJTd9CKAGhVCe28j879tBGWMpabz
fwoh/XHa+kAbgm31CoPHvgtBPm5xtLYtwcN7B7/s7xXC70lrJqfbE9SUDG3n
NwuhfsRPLtKZYLdBSL3rDSHENelfcXEh6JJGHPYXC8Hi5s9tpq4EY9pAOjRf
CLcPHD01uItgWMtDisMIgXw9p7jHg+A5N8ZhY4IQ+B2PVK192X6QcdgWxPat
QWXSP5o8gpWz/9SfZvu4j6GcJfzYPKV1Jheyfe3h9j6jzJ9g8UAs77qlELY2
j2gsDyK47nkvLlwuhHkNWppKfIKPuQrxOaMCqLkTY9AWTXBNTI/F8gQBPLYz
tK2LYfvMMOHahmgB1PW0B5YdI/hSiTGxOSSA57NWF56LI6ga8d1og78AWg8M
ajkkEDzQaPPk6hYBDOi4qTWkEOQVaqfUyAhAJcNE5gEhWGFRlzh+iA8+h3rf
5law/XU1OegHdRB0zj7T4o4SHB857l4rEwLZhkeIokE2LjFp2Jg6JRhU36uf
CQrIRonU28orFgbBhmnHyppzsjFt0L2jaE0AJKcGROq1ZOPl6YuCvlzlQesK
i7sayjmo80wFZJ18oNX6g64GJwcPPpLNFITtheaDgTPvxuVgkW7PpLFyL0hc
8O8yXkUORpWknmG4nuCx5HzXxI8cbKyfGbh0gQcYr/dQMTTIxQLXA/oeY7uh
vHmADvHNxYDjIZMt/2L/b2ICHKjcXByeWjoUuX4X9MXznqu35+LDvWfeL853
gc3y+hHDynkoPWV5KZdyhhxRZ7afXR7uuS3eGyztBNfvev7+ejwP8UaiXPNn
R/i0wqPfqSIPfU+tq07ocwCVG9t27R3Nw4qNvwN6+7kwcVtyIsJAhBkTY2YB
s7hgkz8uHmoowqlDUtvqFLmQdf6HlJ+RCIumRoqWyXPBIqpbzmGlCAVJc3WG
ZbgQt6VWbbmZCLuueHgk/6ZAoS1lzbt1Ivy0cWxcqo2CxRILw8FWhPvNd3q3
5FJwcHjOEWM7EZqnKEh7EgpqPinF6OwQoWz/nVe9mRTwaqUTZ1EiTNH2kxU/
S8GV058z+h1F6PxqSYlpPAUm2lfLLuwWocSHr3s/7qPg+Oz8itPuIlym9KMl
3I+C5qk5VSc8RGistU2o6kNB+LfTtXwvdj7VM0vt3Sl48I+w1cZHhOJL9Rya
dlCgWBjcvtFXhP+m75ygt1PgdcGvw5wnwsvOeo80OBRMjnbt0/IX4WtOeLX/
JgocD3IH1AJEOHCr8ZeSBQWXfWyGFPeJUOldDOcuUDDqZDUyJVCEJ56JP/BZ
TcFWzrqxPywPj9/gKplS8H/XdJXx
        "]]},
      Annotation[#, "Charting`Private`Tag$10383#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"f/Hz\"", TraditionalForm], 
    FormBox["\"\[CapitalIota]/A\"", TraditionalForm]},
  AxesOrigin->{1578.1250000000002`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    RowBox[{"{", 
      RowBox[{"155.372`", " ", "\[CapitalOmega]"}], "}"}], TraditionalForm],
  PlotRange->{{1600., 3000.}, {0, 0.0064}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7812563702656775`*^9, {3.781256536298357*^9, 3.781256578708492*^9}, {
   3.781304309503151*^9, 3.7813043400324135`*^9}, {3.7813045595574007`*^9, 
   3.7813045699007187`*^9}, 3.7813126405674424`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"d775142e-c608-41a6-a16a-18ecf3a6e7c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<example1.eps\>\"", ",", 
   GraphicsBox[{{{}, {{}, 
       {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], 
        AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEzHSadrvfYX+trD+ZOmOWgn7eYcQ9rEISvMMfh
xK4dvWwfwiD8DXOh6mMhfIf5Dh4BfySKrydB+BkLHHSdZV4/MsuC8A0WOoCN
EyqB8CMWOixM3/yqeGsphN+w0OEt7z6DmVoVEP6KhQ6/6rL2lEyG8i8shJpX
BeH/WOigcCk/nv1cJdR9i1D5HoschBMPX9ZOhfILFjk8mCO4dO/Bcgh/xiKo
f8og/AOLHKZ8Y4uf4QN1T8dihwT2c5KBt7Ih/IAlDolGoQZaK5MhfImlDkf7
Dct1FeMh/AdLoe6Lgrp/GdS8UKj9y+HhCQBTAHBW
         "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVlnk4VWsbxsmQjpSQqNCIQmUqQ/U8pSK1E1mbDMlQ2IhEe+8lkohE8jkp
kazXsCuEZidK0aFCSqWQVIgoEqUMfev8sa51/a71x3s/93O/97XmewTa7Zkk
JiZWwT7/vX32hE8WE0tDnbXfL4wbcQCu/7xxSzwNVwnLe2LMOKAsEewVKJGG
PskzKqcjByqz9t5vk07DSe6KWtpbOKDeahNWLpeGgbG3qv3cOfDCbkE/PScN
u9MypOEkBxCrXw2vTMNlu4p8ZvdwYNacGXm9AWk4d8I3ri57GzwYijRR7kzD
pXwtsxPa26Gp7qius/05FNfhRxWJ24K+a6zr/vvnULE31G1Lty3EyntH/bsq
HdfJdaePj9jBpso3Mivz0lH+Vf5xMt0exM9pH+1Qy8ADGqGW/c4UTNISmHml
ZKCWd7pB2UMu+F9z2jEhdh43rL9Yb77aEZ57qu5u4p/HZYJJVcXiTkAU/eof
d53HFgXjBd5vneGWsFyYtCMTvfo2qfzocYUaiT6VlEeZaGC1f0xgshssEgtV
S1ZdwOnTEt3M/ucOpWZbpk0ruoCLXEamb7fwBLOnQxrqClloopbvc8NoD9RG
Jvo+sMrCo7K5gyU7vMFlg5KedHQW8i/zj+j+xQMm1mu+w50sdHEtsfKbEgAd
rSTJ8mcWfmuvflseGASbE90z5hkw6PsyzFuNBINnec8baV8G1e2/RlR3h4B/
avXAEMsyg+sTewdDICQwd/JHHoNlzREH5MdDIHq+u/E9fwab+8/5u8wIhbyY
16f4QQy2Dkw++ts0FHo41ZbdfAbfrbWqMz0RCoFtOTceHWMwsuzKBxm9gxD2
xy05IYfBH/b7Noh78yFqQuwtL5fB8DCrqpeBfIgfZ7Q35zE4npk/mC3gw9nR
j/ekLjI4913Hc914Phsv768R+Qx6qXq39RXw4Wt/4Jb9VxlcKGqPnvyNDx7t
h6W4FQxWl8cp5AcLwPfdPFuj+wxe+6WWH0QLIKjtfobCA1aftk+gTpQADrdK
GD2tZNDBX7/zcLIAMl7HelhVMxis6eGXVSSAlw1J98zqGcxMmqJ8oUcAVvcv
CDVaGTT3v6eWtEMIZff/8f7F8hiXw0vZKYQVD15SjW8ZlDBz64xzE8KsSlmD
2HcMbtp1qWOTnxC6qvifv35gMPnX8SjZKCFE19g43+1hsOvnzYb0AiGM1PA2
n/3MoI/jacOcEiH4P4pZFdzLYEHvrlfpN4Ww4/EdRc0vDPKaT/g6VghhQa1W
beIAg/JK80olGoVQ8fTPatefDKasF78mOywEo4bZOqtGWL9fWe8dHRHCxQZj
1Rm/GKzqFi99PSaEpGd+w1W/GTy279t7Z0kadjU2FepOMBh6alHbEQUanjcO
pkv/YVCsyUazdSYNm17IxbezHFGS6LlQlQa9lxZ7/xYnmF2cECTQoGHsVZH6
mCTBeNX2l2Y6NAQ1PZ76Soqg9Y87Vb/1aOho6vxdJE1QWzdljmgFDU9ez2ny
lCGoe6arssqYhrVvVj5cM4WgzpPxn8YmNFx9Y3tt1l8EE3lWO1PMaDjXHJv0
RJbg58vW+xSAhmktJDx3KsFolVsyRutoiGop9zssR/AN9eD8OgsafFu/WxpO
J8godMTPs6ShtXXaSjl5gvrNnXXfrGjY/nbJok8sRxze9f6KNQ0mbW5i6QoE
lacGU30cGoZSPfxjFQkGmcvbJdjQUGyz5/UBJYJ95x97KdnS4C/js2H3TIIP
Myqio+1o0LrPK96qTLAx6cWl1h00fBAGzDWdxerbU1A7l6Ih0yAobrEKwZOm
V7s2cGlw6g0emqFKkNOsNGjvQINyTujuCZYLV9f0bHVk/XcR1H6eTTClLeaR
7k4aTs4MM2maw36fVZc4xLJ1fXhO5VyClxw/GuY40SAVGylfrEbwuuOLUnNn
Girg6KEMdYKu+sHqd1g+NBLTHadBsMCHcl/gws5bEmcfOo/g3z2tUftZHvI9
UeE+n+Dlz3rRF1kuXnBSd9sCgoaVht7VLPu3nDprtpDgqSsXltWzrP13iqTW
IoKSEd1vy1j+uDU1SHExQSlTa2EKy5lSaa1//uOCh1J2LDvdTbfq0yTY2qlx
fITVo8zPvP5ai+C37PdTYll+vpyZ91CbzUchN2mcnedkd3ZCyRKCZXMS57uw
vJnJGzm/lKB5qv0jws4v6XTJK16HYCp/zalnrF8VCgUNB3XZ+brORHazfh56
cmW1px7BtW+Dcz+xfptEl1y0WUYwTT39r6fsPoqGb0ZqryA48fJ6DZfdF+9K
aZ+SPutf4ufVP9n9anqXOYobEPwn+btW5HZ2ntf3VzQbsnouDWdtYfPhlFyV
8a8RwQbZAZuTW2iYaV0tc82YoIRL+a3SzTQk3KltP7GKYNLSI6OPN9JgFfJ0
q8CEzYO39EQxm09Jvee3vUxZ/3IF0pFsfsMym06tMSfoXpEb/mY1q+fIB+xf
y+a1Yo3wkAGrx6yzoAUIBuufmF24nM3X4CeVGiQozYkNq9alYafXl4Gs9QR7
7mFnqSZ7nuVIlt0mgl2HT1Nn2fsqKTY6FSwJzpHv/qKqzPp1e1ygY8XmvYfS
PMbe91VLJWwlrQkOCkwH1WXZ8+Smid/kEJTd9CKAGhVCe28j879tBGWMpabz
fwoh/XHa+kAbgm31CoPHvgtBPm5xtLYtwcN7B7/s7xXC70lrJqfbE9SUDG3n
NwuhfsRPLtKZYLdBSL3rDSHENelfcXEh6JJGHPYXC8Hi5s9tpq4EY9pAOjRf
CLcPHD01uItgWMtDisMIgXw9p7jHg+A5N8ZhY4IQ+B2PVK192X6QcdgWxPat
QWXSP5o8gpWz/9SfZvu4j6GcJfzYPKV1Jheyfe3h9j6jzJ9g8UAs77qlELY2
j2gsDyK47nkvLlwuhHkNWppKfIKPuQrxOaMCqLkTY9AWTXBNTI/F8gQBPLYz
tK2LYfvMMOHahmgB1PW0B5YdI/hSiTGxOSSA57NWF56LI6ga8d1og78AWg8M
ajkkEDzQaPPk6hYBDOi4qTWkEOQVaqfUyAhAJcNE5gEhWGFRlzh+iA8+h3rf
5law/XU1OegHdRB0zj7T4o4SHB857l4rEwLZhkeIokE2LjFp2Jg6JRhU36uf
CQrIRonU28orFgbBhmnHyppzsjFt0L2jaE0AJKcGROq1ZOPl6YuCvlzlQesK
i7sayjmo80wFZJ18oNX6g64GJwcPPpLNFITtheaDgTPvxuVgkW7PpLFyL0hc
8O8yXkUORpWknmG4nuCx5HzXxI8cbKyfGbh0gQcYr/dQMTTIxQLXA/oeY7uh
vHmADvHNxYDjIZMt/2L/b2ICHKjcXByeWjoUuX4X9MXznqu35+LDvWfeL853
gc3y+hHDynkoPWV5KZdyhhxRZ7afXR7uuS3eGyztBNfvev7+ejwP8UaiXPNn
R/i0wqPfqSIPfU+tq07ocwCVG9t27R3Nw4qNvwN6+7kwcVtyIsJAhBkTY2YB
s7hgkz8uHmoowqlDUtvqFLmQdf6HlJ+RCIumRoqWyXPBIqpbzmGlCAVJc3WG
ZbgQt6VWbbmZCLuueHgk/6ZAoS1lzbt1Ivy0cWxcqo2CxRILw8FWhPvNd3q3
5FJwcHjOEWM7EZqnKEh7EgpqPinF6OwQoWz/nVe9mRTwaqUTZ1EiTNH2kxU/
S8GV058z+h1F6PxqSYlpPAUm2lfLLuwWocSHr3s/7qPg+Oz8itPuIlym9KMl
3I+C5qk5VSc8RGistU2o6kNB+LfTtXwvdj7VM0vt3Sl48I+w1cZHhOJL9Rya
dlCgWBjcvtFXhP+m75ygt1PgdcGvw5wnwsvOeo80OBRMjnbt0/IX4WtOeLX/
JgocD3IH1AJEOHCr8ZeSBQWXfWyGFPeJUOldDOcuUDDqZDUyJVCEJ56JP/BZ
TcFWzrqxPywPj9/gKplS8H/XdJXx
          "]]},
        Annotation[#, "Charting`Private`Tag$10383#1"]& ]}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{
      FormBox["\"f/Hz\"", TraditionalForm], 
      FormBox["\"\[CapitalIota]/A\"", TraditionalForm]},
    AxesOrigin->{1578.1250000000002`, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotLabel->FormBox[
      RowBox[{"{", 
        RowBox[{"155.372`", " ", "\[CapitalOmega]"}], "}"}], TraditionalForm],
    PlotRange->{{1600., 3000.}, {0, 0.0064}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7813045752015686`*^9, 3.7813046060058165`*^9}, {
  3.7813046430422044`*^9, 3.7813046462794046`*^9}, {3.7813126802935343`*^9, 
  3.7813126890151925`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"e0a4deec-3777-4a10-b851-044f6ff34236"],

Cell[BoxData["\<\"example1.eps\"\>"], "Output",
 CellChangeTimes->{3.7813046079855185`*^9, 3.781304648176325*^9, 
  3.781312691546419*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"583eaaf8-3e6f-44c8-8a6f-c1b36958e601"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindMaximum", "[", 
  RowBox[{"modle", ",", 
   RowBox[{"{", 
    RowBox[{"f", ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7812566841727934`*^9, 3.7812566896581125`*^9}, {
  3.781256740845457*^9, 3.7812567478586874`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"da21eb90-e602-47bd-827c-1e18304f83cd"],

Cell[BoxData[
 TemplateBox[{
  "FindMaximum","lstol",
   "\"\:7ebf\:641c\:7d22\:628a\:6b65\:957f\:964d\:4f4e\:5230\:7531 \
AccuracyGoal \:548c PrecisionGoal \:6307\:5b9a\:7684\:5bb9\:5dee\:8303\:56f4\
\:5185\:ff0c\:4f46\:662f\:65e0\:6cd5\:627e\:5230\:51fd\:6570\:503c\:7684\:5145\
\:8db3\:7684\:964d\:4f4e. \:60a8\:53ef\:80fd\:9700\:8981\:591a\:4e8e \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) \:4f4d\:5de5\:4f5c\:7cbe\:5ea6\
\:4ee5\:6ee1\:8db3\:8fd9\:4e9b\:5bb9\:5dee.\"",2,45,5,27747636613903988571,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7812567484640665`*^9, {3.781306245515515*^9, 3.7813062484067774`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[45]:=",ExpressionUUID->"35baa8b1-8be2-4878-9dce-\
8250623d5f16"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.006436164522819518`", ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "2321.5134415910807`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7812567484680557`*^9, {3.781306245543439*^9, 3.781306248430747*^9}},
 CellLabel->"Out[45]=",ExpressionUUID->"10b0a735-37c4-449b-bf40-554d6035ab37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"modle", "==", 
    RowBox[{"0.006436166104574826`", "/", 
     RowBox[{"Sqrt", "[", "2", "]"}]}]}], ",", "f"}], "]"}]], "Input",
 CellChangeTimes->{{3.7812568026516504`*^9, 3.7812568349182954`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"afe302ad-fc44-4610-b2b5-38d809dbb56a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{"-", "2448.444678617513`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{"-", "2201.162521208997`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "2201.162521208997`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "2448.444678617513`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.781256835579525*^9, 3.7813062510945835`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"e9f91528-97c2-468f-9474-6c84590ac456"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781255558955722*^9, 3.7812555907556148`*^9}, {
  3.781255629530878*^9, 
  3.7812556296704683`*^9}},ExpressionUUID->"2b49a30e-1d2b-474e-8a96-\
ca6dffc65398"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2351.2", "/", 
  RowBox[{"(", 
   RowBox[{"2448.44", "-", "2201.16"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.781256864165022*^9, 3.781256881378952*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"f4748d07-2fbe-4b0c-93f7-1cd7f239a00a"],

Cell[BoxData["9.508249757360069`"], "Output",
 CellChangeTimes->{3.7812568824650445`*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"35a6f62b-9ed4-43ba-bcf5-961f43057fac"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "=", "0.1"}], ";", 
  RowBox[{"C", "=", 
   RowBox[{"0.047", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "6"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.781255929949708*^9, 3.7812559620946403`*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"1059843c-bf1e-48f7-85aa-643d540f91a3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "=", "155.372"}]], "Input",
 CellChangeTimes->{{3.781256047578304*^9, 3.781256055924006*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"f6ecb7c3-d0e2-49bb-887a-2cada87298d8"],

Cell[BoxData["155.372`"], "Output",
 CellChangeTimes->{3.7812560567148504`*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"c37b2e08-8573-423a-a3da-494ec7018c18"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"A", "[", "100", "]"}]], "Input",
 CellChangeTimes->{{3.781256094358616*^9, 3.7812560960281477`*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"8f4863ae-d143-4cb3-a78b-f27ca3de9636"],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["U", 
  SqrtBox[
   RowBox[{"10000", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3.3862753849339434`*^6", "f"]}], "+", 
       RowBox[{"0.6283185307179586`", " ", "f"}]}], ")"}], "2"]}]]]], "Input",
 CellChangeTimes->{3.7812564524719877`*^9},
 CellLabel->
  "In[200]:=",ExpressionUUID->"1abe63cf-0a77-48a3-b257-b30f8c4d496a"],

Cell[BoxData[
 FractionBox["U", 
  SqrtBox[
   RowBox[{"10000", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3.3862753849339434`*^6", "f"]}], "+", 
       RowBox[{"0.6283185307179586`", " ", "f"}]}], ")"}], "2"]}]]]], "Output",
 CellChangeTimes->{3.781256452628171*^9},
 CellLabel->
  "Out[200]=",ExpressionUUID->"0942c9cc-2236-438f-8175-bb367810f4da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "\[CapitalOmega]", "]"}]], "Input",
 CellChangeTimes->{{3.7812616307038317`*^9, 3.781261641520434*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"cdfd4b3a-304f-4b33-ae53-93f67cb2c7c5"],

Cell["\\Omega", "Output",
 CellChangeTimes->{3.7812616423042064`*^9},
 CellLabel->
  "Out[1]//TeXForm=",ExpressionUUID->"283dcb8d-cee9-4f08-9b90-f660b3385e69"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  SubscriptBox["U", "C"], "]"}]], "Input",
 CellChangeTimes->{{3.781261811023305*^9, 3.7812618134728355`*^9}, {
  3.7812618908729672`*^9, 3.781261938647807*^9}, {3.781264055742132*^9, 
  3.78126406061464*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"6e6066e1-69f0-48e9-ae84-9c7a0b9a3a80"],

Cell["U_C", "Output",
 CellChangeTimes->{3.781261940299534*^9, 3.781264063110547*^9},
 CellLabel->
  "Out[11]//TeXForm=",ExpressionUUID->"e97f9d43-d973-4db3-b169-00d679181363"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  RowBox[{"0.1", "H"}], "]"}]], "Input",
 CellChangeTimes->{{3.781262034256037*^9, 3.781262096957884*^9}, {
  3.7812622123357897`*^9, 3.781262225240931*^9}, {3.7812625136220727`*^9, 
  3.781262551084423*^9}, {3.7812626227227488`*^9, 3.7812626403066597`*^9}, {
  3.7812627190964427`*^9, 3.781262746017253*^9}, {3.781263205869867*^9, 
  3.7812632429698954`*^9}, {3.7812633236193795`*^9, 3.781263326897194*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"b321779c-92fe-4bc4-a0ff-be8b5088c568"],

Cell["0.1 H", "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.781262641452536*^9, 3.78126274726794*^9, 
  3.78126306405203*^9, 3.781263247029702*^9, 3.7812633281129217`*^9},
 CellLabel->
  "Out[10]//TeXForm=",ExpressionUUID->"e5b19ec3-3ca3-41ce-97e7-826e03b698bd"],

Cell["0.047 \\text{$\\mu $F}", "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.781262641452536*^9, 3.78126274726794*^9, 
  3.78126306405203*^9, 3.781263247029702*^9},
 CellLabel->
  "Out[9]//TeXForm=",ExpressionUUID->"d5339619-b0e4-4e64-859e-8a445a7a162c"],

Cell["Q=\\frac{f_0}{f_2-f_1}\t", "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.781262641452536*^9, 3.78126274726794*^9, 
  3.78126306405203*^9},ExpressionUUID->"82349d14-cc0e-4c70-bba1-5a602f557b60"]
}, Open  ]],

Cell["", "Input",
 CellChangeTimes->{{3.7812622454594126`*^9, 
  3.7812622455371666`*^9}},ExpressionUUID->"7ec30e31-ca09-49cf-9b7f-\
93d0f52c02de"],

Cell["\\frac{f_0 U_R}{f_2-f_1}\t", "Input",
 CellChangeTimes->{{3.7812621051757994`*^9, 
  3.78126210527363*^9}},ExpressionUUID->"de564208-b23a-4e54-8475-\
47c3a8daee99"],

Cell[BoxData[
 RowBox[{"s1", "=", 
  RowBox[{
  "Import", "[", "\"\<ExampleData/population2.xls\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.781303989922612*^9, 3.7813040322027545`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"4995587e-ddcd-453b-81c4-ed767df00b04"],

Cell[BoxData[
 RowBox[{"s1", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1600.`", ",", "0.0008`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1700.`", ",", "0.0009599999999999999`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1800.`", ",", "0.0011`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1900.`", ",", "0.00128`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2000.`", ",", "0.00128`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2100.`", ",", "0.00164`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2200.`", ",", "0.00176`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2220.`", ",", "0.00176`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2240.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2260.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2280.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2300.`", ",", "0.0018`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2320.`", ",", "0.00174`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2340.`", ",", "0.00174`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2360.`", ",", "0.00174`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2380.`", ",", "0.00172`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2400.`", ",", "0.00172`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2500.`", ",", "0.0017`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2600.`", ",", "0.00152`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2700.`", ",", "0.0014`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2800.`", ",", "0.00124`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2900.`", ",", "0.00114`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3000.`", ",", "0.001004`"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.781304067354677*^9, 3.781304084894735*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"dfbd01bc-83ae-42d0-90ca-b58c83bedb80"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1600.`", ",", "0.0008`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1700.`", ",", "0.0009599999999999999`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1800.`", ",", "0.0011`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1900.`", ",", "0.00128`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2000.`", ",", "0.00128`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2100.`", ",", "0.00164`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2200.`", ",", "0.00176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2220.`", ",", "0.00176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2240.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2260.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2280.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2300.`", ",", "0.0018`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2320.`", ",", "0.00174`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2340.`", ",", "0.00174`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2360.`", ",", "0.00174`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2380.`", ",", "0.00172`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2400.`", ",", "0.00172`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2500.`", ",", "0.0017`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2600.`", ",", "0.00152`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2700.`", ",", "0.0014`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2800.`", ",", "0.00124`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2900.`", ",", "0.00114`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3000.`", ",", "0.001004`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.781304087920635*^9, 3.781304406734234*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"f8102816-fe13-4382-baaf-ac67badb18bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1600.`", ",", "0.0008`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1700.`", ",", "0.0009599999999999999`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1800.`", ",", "0.0011`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1900.`", ",", "0.00128`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2000.`", ",", "0.00128`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2100.`", ",", "0.00164`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2200.`", ",", "0.00176`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2220.`", ",", "0.00176`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2240.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2260.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2280.`", ",", "0.0017800000000000001`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2300.`", ",", "0.0018`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2320.`", ",", "0.00174`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2340.`", ",", "0.00174`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2360.`", ",", "0.00174`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2380.`", ",", "0.00172`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2400.`", ",", "0.00172`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2500.`", ",", "0.0017`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2600.`", ",", "0.00152`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2700.`", ",", "0.0014`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2800.`", ",", "0.00124`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2900.`", ",", "0.00114`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3000.`", ",", "0.001004`"}], "}"}]}], "}"}], ",", 
  RowBox[{"{", 
   RowBox[{"{", "}"}], "}"}], ",", 
  RowBox[{"{", 
   RowBox[{"{", "}"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.781304036062425*^9, 
  3.78130404544137*^9}},ExpressionUUID->"13da1baf-11ed-4a1a-a635-\
25750d528a17"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.7813041189166813`*^9, 3.7813041227933073`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"a1f1eead-60e7-4878-9170-c33b362a03b9"],

Cell[BoxData[
 RowBox[{"{", "\<\"C\"\>", "}"}]], "Output",
 CellChangeTimes->{3.781304123243103*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"d273ab8d-9fbb-46b1-a084-bcd060d480bd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "=", "0.1"}], ";", 
  RowBox[{"C", "=", 
   RowBox[{"0.047", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "6"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.781304039997892*^9, 3.781304041187708*^9}, {
   3.7813041125078344`*^9, 3.7813041318311195`*^9}, 3.7813042317982593`*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"77a59f6c-bf13-4039-a104-c6b8f4b97bf1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"s1", ",", "modle", ",", 
    RowBox[{"{", "R", "}"}], ",", "f"}], "]"}]}]], "Input",
 CellChangeTimes->{3.781304163095446*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"45b8850e-2146-4b55-adc7-88791d6723ea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"R", "\[Rule]", "562.9011340648725`"}], "}"}]], "Output",
 CellChangeTimes->{3.7813044449950113`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"5975e0f8-060c-4e57-ab5b-4c9f005c7186"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "R", "]"}]], "Input",
 CellChangeTimes->{{3.781304437070612*^9, 3.7813044416509533`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"32b1659f-e7d3-4c3e-a9d5-5a489da4e9b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "=", "562.9011340648725`"}]], "Input",
 CellChangeTimes->{{3.781304466900378*^9, 3.781304474761386*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"754125fb-dfcc-4175-8ced-2d7c1095e75a"],

Cell[BoxData["562.9011340648725`"], "Output",
 CellChangeTimes->{3.7813044757846365`*^9, 3.7813056066920247`*^9, 
  3.7813110847241287`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"2eab0d33-c9f6-44e7-977b-41716dbc69ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"s1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{"modle", ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "1600", ",", "3000"}], "}"}]}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f/Hz\>\"", ",", "\"\<\[CapitalIota]/A\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"R", "=", 
      RowBox[{"562.901", "\[CapitalOmega]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.7813044941853557`*^9, {3.7813055850000224`*^9, 3.781305600290103*^9}, {
   3.7813126610270967`*^9, 3.78131266138813*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"dd757aca-bd1a-4f7c-91a5-11dfa77004cd"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEzHXSdZV4/MvOyB3MnzHLIkA31FSj1h/AV5jjo
5y1m3MMaBOFvmOvwMeNxx9YfIRC+w3xUfsYCh5K45Okr7kVB+AYLHbw3WMz5
eTUGwo9A4zcsdHhvG1N0RzMWwl+Bxr+Axv+x0GHS6XqP/bVQvsIih+VKosfE
mqDmeaDxC9D4MxY5ME/9+N5YD8o/gMbvWOwQz35OMvBWNIQfsMRhHk/fpPDn
ERC+xFKH47t29LJ9CIPwHyx1WOk75877AKj/VyxzKOt8tbZxLTS8CpY7vIyf
dEqkOMAeAMOBdGk=
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8VG0UB3B7EsJEqFRKFEqWQss5bdIUGkRxpwVlLd5KUlps2RLSRpT7
WKbyUrSpKEshSaJSqIQohEQky/u8f8xnPt/PvXfu3Oc+v3PObCdv690iQkJC
ffTz/7fb7mMThIQScN1gn06FJRfgzuDd+8IJ2HJv2eAbay4oie538RZNwIYH
Zoea7LhQkrKn6JNEAvr+oxH/ZzsX1BqtjhbIJKDdaNxGQ28uvLFW7zkyLQE1
bx+pfRHDBcSydwNLEnCHo8rskNdcmDpNPqNzbwKmzev/d5b9RijuP2ms9DUB
M2XjxiWCN0Hdy2AdR9tEvLhwWJpzzQIW88P4/xQl4v6dvy6N1VpCmJxrUOnS
y7iobXxtB2czmJV8kFyScRlxuWuu64PNIJyoFdw6IwmzlL1cLA/yQETzsKlL
fBIGnOqLszWwBq/bDjZjQslo1vDLfaTTGmqcVXbW+SXjcPeEHWUPbYBwPKsq
2pKxtM+dbAi0hfv+Bf4xNldQR/6GgGO+BcpFu5Tjn19B7+rvLdJz7GBNdJZK
ztKrGBUj/bCk1w4emG6Ulb15FQWv+k+1VtmD6av+mWoKKTjgmm27MH0rVJ6M
di82T8HhbENTsmcbMGun6EqEpOD77NCsUl0HYMNcZts/SsE49U1B/R8coLWR
xKwfTME3YTWK/EBHyKh7+0t/KAV3l3ZJFQU7gmuN5Fa1PykYun9lxJxTjtBR
tm/WwHAKbnGPnNEa6Qi9uaY5ZCwF7//qDrc55wij4TU1o+Is/nnxIrojwxGU
jESU7kxhsX5PUGBfhSNsiN6VNEufRXuOeYCRLANS2fZGI9RgZiKiIMdARZVF
VZ0Bi1Uya2V/yDPAlTMVijFicW1L+90rigxsildwGTVmUVTTVq93OgObE0q0
64HFcPfJyzZqM2CXrvEo3oLFypntCh/NGFAqnWbrbcniyN9lnAhzBura5H9w
rVh8ntccYsBlYKvWmJoIj8Vqm7wHwRYMbMt8F+Rjy2LPcOZWeVsGmJwwroUj
i+11y9ubdjLgXPD9g4Q7i0N5+eYW/gx4XSjr7aeWd4wUajvCwEHv9AktHiyK
h7hVBQQwEDJ7l9ETLxbPP717Pe0EAxmh72P9fFhMjPbc9DGUge8WZeu/+bHo
BLF3fsYx4P0p7e7zUyyqaXMbyTUGDt8PqrwfxmKrrrzG6HUGTsbubEkPp+uT
PO6zJZOB2NXT5YMiWVy8frWcUDYDuRnxXqZnWDx0QXf7itsMDOwLmpN5nsXs
7pHn9gUMHB3fEXc6jcXD0bJ3JKsZCBoT+uiRzuLvIzl1k18zEDnKam3IYDF0
mbOBYg0Dl/62PBG/xmLhpKdxqm8YGl/X7uOZLH6O3NM8+T0D3T3eG//JZbHg
zL3zaZ/p/brlLlrdpusb+Vg5pomBkR85zbp3WPS4E/7K7wsDk7p++Xfcpc/r
s79uTQsDWt/8rjk/YHF+vCm3tI0Bp6YT4naF9HyN6qiDPxhw/zyLZ1hEz9cv
1lvdzYDPp6IkhWIW21TnSsj2MHCiUdTwVQmLyRGhq1J6GUh6H+ZkXsbigibl
39m/GHhbHfPEtIrFf75eMPT9w0DjK71JKq9YPC6R/1JjmIHWqtd2g9QWDSPn
3lD3VXK6b79mccXFHVk6IwzIPr84Xfcti0pmJSJlYwyYF131n9nIovEGNZ00
UT7kFz10/UNtaCv2yFCMD3rFb7fUfqT7Zdan8BLqqSWT9MM+s+g/vuJLgzgf
2p76dXQ3syjzJiF4cAIfHJ6dfV/ewmLZPpGJRyT5UPUsq5S0sujWq/xymPpu
aQuxa2Px5vaV8oMT+RBSbuX4+DuL1nUaEfWT+DBU7rHhUgeLApVcUStpPng9
D126v5PFnMov+UXUNhWPOPN+sJjwdWknK8MH9UrNyuheFnc5bDC2mMyHwlfj
y/mDLPpy+ZetFPhgWK2qvXSIxYMfjoleo75WbaQi/4fF3qBPN8aoY157Djwd
pnmKEtzP4PBhe21dls4Yi2uSTrz4MoUPNbV9lyXGWVx/r2iRjiIfzN7IRDZR
14d31B6k1n27Zs85YYKrxLY0CinxYeTdTbURMYLhUoG9olP54FNXIf1OnGCH
aZsdUrfWfR2+KUFQfQ5n7Aj1i/fT6pwlCfa/Wze5k3rlhyXPVkwk+K74jP8s
ZT7kfuDdnipFMClDQ8OWOrE+LObFJIKRgS/xHrVsAzmWLk3QpEorp5U6qKHA
84QMQV7BHmd5FT64N/5abzCZYK70/DO7qRsbZZfIyBGs7B6TiKbe/HH+3HZq
3iGH4lxq4087hC4rEJTbaCX8h7r/gpNXGIdgfIqiwXRVPtyy2v3+wBSC32zc
tq2g9pJ0W7tTkeDoQNBBhlqzyOPWJiWCD3gkxJ+62X/vdJOpBA95ikWeo76i
7xOuoUzQ/+S3kCxqh879/fIqBI9IxPg+pVZK8905Ri2VacJ8oK5hDld2qBJU
tdE26aI+o3jUuG4aQWfVa9Kj1NyqY2kl0wk2WQ+8mzSND+JhJ+VuzSC4LGTb
JWXqQggOSFIjaOo5nTeHOmAo9Fv4TIIL/5wS1qE2zgm39Z1F0MWm5bo+db97
VOGu2fT/1ARwl1LfUj+jY6lOsEE4pcWE2qsh9pLpHILTrib6mlJrnYsX05xL
0D7hkdD/x1s2XfDhaBBMlLMJNaK+Ip7QOE4NW3JF9agdHl8275pH0KxdO0CL
Wsnvyp33mgTzfDk9atQ1i9hZz7QIDn0sYDjUZ76lns6ZT1BLO/CZOPUGNmMo
eQFBn/N35v+mzy/mcN0lUpsgE3gropW6UOHf6kM6BDVPVH2tpg54kb3cWZfg
VK77ykfUxiE516wWEnxS1hifSn1z4N5JLT2CPViyZB+1R/aDrimLCXa++RWy
mXqea/5WYX2CUzYefq33//t7X6RXb0Bw8WMx1066PxziniaVGhK8HFF76xm1
IrdM8rYRwas1wcPJ1KcfVTZFLSVoPHFOjDm1+cFXmw4b0/Vt+VKvSi2mW5Pn
YkLzwFHX6qT79+iVutgVy+jzPqgpD6X2CGzGnpUEVRq/L0yl+Zhn+vXfBiA4
op9ydjd1c1+7cjkSXHTM4q8G9TaXH70pqwlGVDEfU2gezdcPpVibEXw9ZPrz
OM2rmNBfaVhPEAujIxZTF+aNHtY2J5iaHr+gmeZ96QJRnhiXHj+QGb6Cep6M
rPA9C5q/uO/FjbReNHXWsmctCTa6Tv4dSn25ImG1txW9vo85pEstF64RosUj
eDBy5k4/eT4Mi6yYcNmW4Lq8Va2/aX2qGvKUOelI309BoHw6rWfhdYuzGYbm
i+zdaEC95t6gpQmf5tUw+cMTWg/zDgTH9m0naDTnen+tFB9IdyJntxPBS5sr
9L/ReurX+lyF607Xc6/l8iJan/VLYh7O8yCo9Oef/v/rdxe7xVHUk2Bg7F1J
Aa3vTju+JOV70fsvzFp/SoQPm+qHZi7yIdjnNqi7WIgPs6o1503xI7hJWIJj
8peB8keh+p9CCC51eKKqSPtRhbUB72UowRejb2Ad7Vcvvzd555+i+XC4cfoA
7Wc1U5dnJYYTPDN6NaWii/anA32a9qfp+vOXljl9Z6BXe8eM6ni6fzWfFixr
ZkA5yViymBBM7yrtPk/7s6pB27ycVIJ7dKPOnab9e0ZF/LqUNIJhzzuOBtL+
rj7UHXQ8g2C+yzeFPVUM6Nimj5reIOhXNuSvWsEASiv8up1DcKx1X49eEQNu
AZ0f0wtpniaa31Kl80TdFM7V2CKCIauTlb78y4BZlunOo8UEb4JJRzqdP+Z+
imje/JSgyMmKxgV0PmkCrfa/ZbQeLZwsqZ5G5ynR3b28VwSze8NWlibQeS7y
k8jYR4LN5pUBXcEMaF96rWn3l9a3qGvCrTZ03rDLn7F4hOB2g0w7N2sGJBQF
HOlRWn8M3pzs3MxAc1zAeNEYweDCPPtuOq8lRmnW6Yqk4t2IWxpt6xmYeOLY
KfGJqdiZ0/nzyjIG2nfP/3pHKRWF1AdemqozkGoQSDj6qQjPbrWv73IElS9q
F332pmLQV02XvR6OsFb2VH59Wiq+fMIfM2h1gLgLe0/qNqRi0fK9wQftHaBR
b83jmUppWFsm9SHs/jZo5DbrzLRIw4cHrnYqqW2D+kPeio/D03CqapZZjO9W
iFYvXehRmIbtD3e4DdfZg9P85Lax32nIGY3bnr3SHoxWOykb6KcjxM7wGUi0
g4L63iMH3dMxb5rO8X3idP4P3Wu/JT0ddbUHG266boGuSI8ataZ0XLvPoePG
a1vYILf4+IBSBr70VWvbxrWFNMHXVE/rDKzidozX59vAncfOw90RGSgeWjIl
f4UNtOs59TgUZuDyZLGY0mfWoHzXcvuevxn4seMtU25uDWN5YmPH9QXYklAr
1fKeB1aZo8K+BgKUfDR4+c87HqQk/xb3NBRgeduzULm3PFgT9E3GfokAkz4v
cobXPAjfWDljkakAV3O/rmGf80DhU/yKz6sE+Hyj0lnfhzzQEJ1zDHgCFI/Q
ldqZxINDA9MCjawF6G1x9lJgIg/K26eEatsI0HKu3PHUSzzwqJSInrpFgAtW
z7H8do4H2ec7knq20uvDlgkfiuaBsVZu/tWdAtzQWyJgj/MgQjWz8PwuAR7N
T2LLA3hQL532NMpJgJ4/83/2HOHBsZ/nK/1cBCi678o58ONB8UP/Ris3+vsn
fFqavXnAydrftM5dgF1Bk89I7+OBy1XP1mUeAoydHnVmiRcPJoTwuzS9BJi9
oTk2yo0HWw/Z9c7YK0D9H+TsvT08uOFm1c/ZJ8CHZlIdX1x48NfBfGiitwA9
aqQuyjjzYJPFqpFx6twJFxNMdvHgP1DN/7k=
        "]]},
      Annotation[#, "Charting`Private`Tag$10706#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"f/Hz\"", TraditionalForm], 
    FormBox["\"\[CapitalIota]/A\"", TraditionalForm]},
  AxesOrigin->{1578.1250000000002`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    RowBox[{"{", 
      RowBox[{"562.901`", " ", "\[CapitalOmega]"}], "}"}], TraditionalForm],
  PlotRange->{{1600., 3000.}, {0, 0.0018}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7813044838749495`*^9, 3.781304495220584*^9}, 
   3.781305608731509*^9, 3.7813126625939035`*^9, {3.781312703534544*^9, 
   3.7813127199294567`*^9}},
 CellLabel->"Out[70]=",ExpressionUUID->"8dfc3bde-83e8-4da3-9a98-72c983d78709"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<example2.eps\>\"", ",", 
   GraphicsBox[{{{}, {{}, 
       {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], 
        AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEzHXSdZV4/MvOyB3MnzHLIkA31FSj1h/AV5jjo
5y1m3MMaBOFvmOvwMeNxx9YfIRC+w3xUfsYCh5K45Okr7kVB+AYLHbw3WMz5
eTUGwo9A4zcsdHhvG1N0RzMWwl+Bxr+Axv+x0GHS6XqP/bVQvsIih+VKosfE
mqDmeaDxC9D4MxY5ME/9+N5YD8o/gMbvWOwQz35OMvBWNIQfsMRhHk/fpPDn
ERC+xFKH47t29LJ9CIPwHyx1WOk75877AKj/VyxzKOt8tbZxLTS8CpY7vIyf
dEqkOMAeAMOBdGk=
         "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8VG0UB3B7EsJEqFRKFEqWQss5bdIUGkRxpwVlLd5KUlps2RLSRpT7
WKbyUrSpKEshSaJSqIQohEQky/u8f8xnPt/PvXfu3Oc+v3PObCdv690iQkJC
ffTz/7fb7mMThIQScN1gn06FJRfgzuDd+8IJ2HJv2eAbay4oie538RZNwIYH
Zoea7LhQkrKn6JNEAvr+oxH/ZzsX1BqtjhbIJKDdaNxGQ28uvLFW7zkyLQE1
bx+pfRHDBcSydwNLEnCHo8rskNdcmDpNPqNzbwKmzev/d5b9RijuP2ms9DUB
M2XjxiWCN0Hdy2AdR9tEvLhwWJpzzQIW88P4/xQl4v6dvy6N1VpCmJxrUOnS
y7iobXxtB2czmJV8kFyScRlxuWuu64PNIJyoFdw6IwmzlL1cLA/yQETzsKlL
fBIGnOqLszWwBq/bDjZjQslo1vDLfaTTGmqcVXbW+SXjcPeEHWUPbYBwPKsq
2pKxtM+dbAi0hfv+Bf4xNldQR/6GgGO+BcpFu5Tjn19B7+rvLdJz7GBNdJZK
ztKrGBUj/bCk1w4emG6Ulb15FQWv+k+1VtmD6av+mWoKKTjgmm27MH0rVJ6M
di82T8HhbENTsmcbMGun6EqEpOD77NCsUl0HYMNcZts/SsE49U1B/R8coLWR
xKwfTME3YTWK/EBHyKh7+0t/KAV3l3ZJFQU7gmuN5Fa1PykYun9lxJxTjtBR
tm/WwHAKbnGPnNEa6Qi9uaY5ZCwF7//qDrc55wij4TU1o+Is/nnxIrojwxGU
jESU7kxhsX5PUGBfhSNsiN6VNEufRXuOeYCRLANS2fZGI9RgZiKiIMdARZVF
VZ0Bi1Uya2V/yDPAlTMVijFicW1L+90rigxsildwGTVmUVTTVq93OgObE0q0
64HFcPfJyzZqM2CXrvEo3oLFypntCh/NGFAqnWbrbcniyN9lnAhzBura5H9w
rVh8ntccYsBlYKvWmJoIj8Vqm7wHwRYMbMt8F+Rjy2LPcOZWeVsGmJwwroUj
i+11y9ubdjLgXPD9g4Q7i0N5+eYW/gx4XSjr7aeWd4wUajvCwEHv9AktHiyK
h7hVBQQwEDJ7l9ETLxbPP717Pe0EAxmh72P9fFhMjPbc9DGUge8WZeu/+bHo
BLF3fsYx4P0p7e7zUyyqaXMbyTUGDt8PqrwfxmKrrrzG6HUGTsbubEkPp+uT
PO6zJZOB2NXT5YMiWVy8frWcUDYDuRnxXqZnWDx0QXf7itsMDOwLmpN5nsXs
7pHn9gUMHB3fEXc6jcXD0bJ3JKsZCBoT+uiRzuLvIzl1k18zEDnKam3IYDF0
mbOBYg0Dl/62PBG/xmLhpKdxqm8YGl/X7uOZLH6O3NM8+T0D3T3eG//JZbHg
zL3zaZ/p/brlLlrdpusb+Vg5pomBkR85zbp3WPS4E/7K7wsDk7p++Xfcpc/r
s79uTQsDWt/8rjk/YHF+vCm3tI0Bp6YT4naF9HyN6qiDPxhw/zyLZ1hEz9cv
1lvdzYDPp6IkhWIW21TnSsj2MHCiUdTwVQmLyRGhq1J6GUh6H+ZkXsbigibl
39m/GHhbHfPEtIrFf75eMPT9w0DjK71JKq9YPC6R/1JjmIHWqtd2g9QWDSPn
3lD3VXK6b79mccXFHVk6IwzIPr84Xfcti0pmJSJlYwyYF131n9nIovEGNZ00
UT7kFz10/UNtaCv2yFCMD3rFb7fUfqT7Zdan8BLqqSWT9MM+s+g/vuJLgzgf
2p76dXQ3syjzJiF4cAIfHJ6dfV/ewmLZPpGJRyT5UPUsq5S0sujWq/xymPpu
aQuxa2Px5vaV8oMT+RBSbuX4+DuL1nUaEfWT+DBU7rHhUgeLApVcUStpPng9
D126v5PFnMov+UXUNhWPOPN+sJjwdWknK8MH9UrNyuheFnc5bDC2mMyHwlfj
y/mDLPpy+ZetFPhgWK2qvXSIxYMfjoleo75WbaQi/4fF3qBPN8aoY157Djwd
pnmKEtzP4PBhe21dls4Yi2uSTrz4MoUPNbV9lyXGWVx/r2iRjiIfzN7IRDZR
14d31B6k1n27Zs85YYKrxLY0CinxYeTdTbURMYLhUoG9olP54FNXIf1OnGCH
aZsdUrfWfR2+KUFQfQ5n7Aj1i/fT6pwlCfa/Wze5k3rlhyXPVkwk+K74jP8s
ZT7kfuDdnipFMClDQ8OWOrE+LObFJIKRgS/xHrVsAzmWLk3QpEorp5U6qKHA
84QMQV7BHmd5FT64N/5abzCZYK70/DO7qRsbZZfIyBGs7B6TiKbe/HH+3HZq
3iGH4lxq4087hC4rEJTbaCX8h7r/gpNXGIdgfIqiwXRVPtyy2v3+wBSC32zc
tq2g9pJ0W7tTkeDoQNBBhlqzyOPWJiWCD3gkxJ+62X/vdJOpBA95ikWeo76i
7xOuoUzQ/+S3kCxqh879/fIqBI9IxPg+pVZK8905Ri2VacJ8oK5hDld2qBJU
tdE26aI+o3jUuG4aQWfVa9Kj1NyqY2kl0wk2WQ+8mzSND+JhJ+VuzSC4LGTb
JWXqQggOSFIjaOo5nTeHOmAo9Fv4TIIL/5wS1qE2zgm39Z1F0MWm5bo+db97
VOGu2fT/1ARwl1LfUj+jY6lOsEE4pcWE2qsh9pLpHILTrib6mlJrnYsX05xL
0D7hkdD/x1s2XfDhaBBMlLMJNaK+Ip7QOE4NW3JF9agdHl8275pH0KxdO0CL
Wsnvyp33mgTzfDk9atQ1i9hZz7QIDn0sYDjUZ76lns6ZT1BLO/CZOPUGNmMo
eQFBn/N35v+mzy/mcN0lUpsgE3gropW6UOHf6kM6BDVPVH2tpg54kb3cWZfg
VK77ykfUxiE516wWEnxS1hifSn1z4N5JLT2CPViyZB+1R/aDrimLCXa++RWy
mXqea/5WYX2CUzYefq33//t7X6RXb0Bw8WMx1066PxziniaVGhK8HFF76xm1
IrdM8rYRwas1wcPJ1KcfVTZFLSVoPHFOjDm1+cFXmw4b0/Vt+VKvSi2mW5Pn
YkLzwFHX6qT79+iVutgVy+jzPqgpD6X2CGzGnpUEVRq/L0yl+Zhn+vXfBiA4
op9ydjd1c1+7cjkSXHTM4q8G9TaXH70pqwlGVDEfU2gezdcPpVibEXw9ZPrz
OM2rmNBfaVhPEAujIxZTF+aNHtY2J5iaHr+gmeZ96QJRnhiXHj+QGb6Cep6M
rPA9C5q/uO/FjbReNHXWsmctCTa6Tv4dSn25ImG1txW9vo85pEstF64RosUj
eDBy5k4/eT4Mi6yYcNmW4Lq8Va2/aX2qGvKUOelI309BoHw6rWfhdYuzGYbm
i+zdaEC95t6gpQmf5tUw+cMTWg/zDgTH9m0naDTnen+tFB9IdyJntxPBS5sr
9L/ReurX+lyF607Xc6/l8iJan/VLYh7O8yCo9Oef/v/rdxe7xVHUk2Bg7F1J
Aa3vTju+JOV70fsvzFp/SoQPm+qHZi7yIdjnNqi7WIgPs6o1503xI7hJWIJj
8peB8keh+p9CCC51eKKqSPtRhbUB72UowRejb2Ad7Vcvvzd555+i+XC4cfoA
7Wc1U5dnJYYTPDN6NaWii/anA32a9qfp+vOXljl9Z6BXe8eM6ni6fzWfFixr
ZkA5yViymBBM7yrtPk/7s6pB27ycVIJ7dKPOnab9e0ZF/LqUNIJhzzuOBtL+
rj7UHXQ8g2C+yzeFPVUM6Nimj5reIOhXNuSvWsEASiv8up1DcKx1X49eEQNu
AZ0f0wtpniaa31Kl80TdFM7V2CKCIauTlb78y4BZlunOo8UEb4JJRzqdP+Z+
imje/JSgyMmKxgV0PmkCrfa/ZbQeLZwsqZ5G5ynR3b28VwSze8NWlibQeS7y
k8jYR4LN5pUBXcEMaF96rWn3l9a3qGvCrTZ03rDLn7F4hOB2g0w7N2sGJBQF
HOlRWn8M3pzs3MxAc1zAeNEYweDCPPtuOq8lRmnW6Yqk4t2IWxpt6xmYeOLY
KfGJqdiZ0/nzyjIG2nfP/3pHKRWF1AdemqozkGoQSDj6qQjPbrWv73IElS9q
F332pmLQV02XvR6OsFb2VH59Wiq+fMIfM2h1gLgLe0/qNqRi0fK9wQftHaBR
b83jmUppWFsm9SHs/jZo5DbrzLRIw4cHrnYqqW2D+kPeio/D03CqapZZjO9W
iFYvXehRmIbtD3e4DdfZg9P85Lax32nIGY3bnr3SHoxWOykb6KcjxM7wGUi0
g4L63iMH3dMxb5rO8X3idP4P3Wu/JT0ddbUHG266boGuSI8ataZ0XLvPoePG
a1vYILf4+IBSBr70VWvbxrWFNMHXVE/rDKzidozX59vAncfOw90RGSgeWjIl
f4UNtOs59TgUZuDyZLGY0mfWoHzXcvuevxn4seMtU25uDWN5YmPH9QXYklAr
1fKeB1aZo8K+BgKUfDR4+c87HqQk/xb3NBRgeduzULm3PFgT9E3GfokAkz4v
cobXPAjfWDljkakAV3O/rmGf80DhU/yKz6sE+Hyj0lnfhzzQEJ1zDHgCFI/Q
ldqZxINDA9MCjawF6G1x9lJgIg/K26eEatsI0HKu3PHUSzzwqJSInrpFgAtW
z7H8do4H2ec7knq20uvDlgkfiuaBsVZu/tWdAtzQWyJgj/MgQjWz8PwuAR7N
T2LLA3hQL532NMpJgJ4/83/2HOHBsZ/nK/1cBCi678o58ONB8UP/Ris3+vsn
fFqavXnAydrftM5dgF1Bk89I7+OBy1XP1mUeAoydHnVmiRcPJoTwuzS9BJi9
oTk2yo0HWw/Z9c7YK0D9H+TsvT08uOFm1c/ZJ8CHZlIdX1x48NfBfGiitwA9
aqQuyjjzYJPFqpFx6twJFxNMdvHgP1DN/7k=
          "]]},
        Annotation[#, "Charting`Private`Tag$10706#1"]& ]}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{
      FormBox["\"f/Hz\"", TraditionalForm], 
      FormBox["\"\[CapitalIota]/A\"", TraditionalForm]},
    AxesOrigin->{1578.1250000000002`, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotLabel->FormBox[
      RowBox[{"{", 
        RowBox[{"562.901`", " ", "\[CapitalOmega]"}], "}"}], TraditionalForm],
    PlotRange->{{1600., 3000.}, {0, 0.0018}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7813056150286574`*^9, 3.781305636536786*^9}, {
  3.781312724904143*^9, 3.7813127291108837`*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"cd96050d-a813-4055-b3a4-d11a612f9c9d"],

Cell[BoxData["\<\"example2.eps\"\>"], "Output",
 CellChangeTimes->{3.78130563753312*^9, 3.7813127312471704`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"4b6f9660-39aa-414d-be25-66596a4f7e05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "/", "R"}], "*", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"L", "/", "C"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7813060621569223`*^9, 3.7813060977162795`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"027a7e63-4124-4c60-bc1d-83f053f1cf74"],

Cell[BoxData["9.388110834001196`"], "Output",
 CellChangeTimes->{{3.781306098144233*^9, 3.7813061237516003`*^9}, 
   3.7813061601368275`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"c9a677c7-f286-4544-9272-24cbf6925377"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "=", "562.901"}]], "Input",
 CellChangeTimes->{{3.7813061089412756`*^9, 3.781306120748638*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"dc224cfb-6522-4044-a4a7-cdf0c7c9a7ac"],

Cell[BoxData["562.901`"], "Output",
 CellChangeTimes->{{3.7813061096872416`*^9, 3.7813061214188824`*^9}, 
   3.781310599325737*^9, 3.781311123146531*^9, 3.781312716381951*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"23482928-85df-4414-b8ea-7d4abb8012f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"40", "/", "50"}], "*", "3"}]], "Input",
 CellChangeTimes->{{3.781313416189561*^9, 3.7813134400917573`*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"5e762a1f-ea14-4db5-9901-144b14d8881e"],

Cell[BoxData[
 FractionBox["12", "5"]], "Output",
 CellChangeTimes->{3.7813134408373027`*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"0005fa0e-0d9b-40ab-b417-c33038032d14"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["123", "50"], "]"}]], "Input",
 CellChangeTimes->{{3.781313425329069*^9, 3.781313426868948*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"b46c3bcb-0e48-4354-9cd0-9e2390e6e3f6"],

Cell[BoxData["2.46`"], "Output",
 CellChangeTimes->{3.7813134272918158`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"66d3addf-1e4e-417a-9c66-c07181255bad"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781256973543976*^9, 
  3.7812569749880753`*^9}},ExpressionUUID->"98bd7364-ceb8-406d-8263-\
ec90ae97a4c8"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781255595642537*^9, 3.7812556007039905`*^9}, 
   3.7812556320969725`*^9},ExpressionUUID->"55207d7d-5329-4243-a254-\
29268bb775df"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7812556345903006`*^9, 
  3.7812556347468815`*^9}},ExpressionUUID->"12637267-36ba-4c6e-9506-\
665dc1c1252c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindMaximum", "[", 
  RowBox[{"modle", ",", 
   RowBox[{"{", 
    RowBox[{"f", ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7812556036521*^9, 3.7812556052009554`*^9}, 
   3.781310595806117*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"c64482db-fab1-4d2d-9b17-6d71fa83be35"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0017765113225949147`", ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "2321.5134420945797`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.781310601840973*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"2072d871-4bd9-43dc-a43f-f3e6e5858b1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"modle", "==", 
    RowBox[{"0.0017765113225949147`", "/", 
     RowBox[{"Sqrt", "[", "2", "]"}]}]}], ",", "f"}], "]"}]], "Input",
 CellChangeTimes->{{3.7813106130579453`*^9, 3.7813106134060144`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"8934d529-c68d-4a3f-9ca5-0513a6479d46"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{"-", "2812.2767588688635`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{"-", "1916.3919926551537`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "1916.3919926551537`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "2812.2767588688635`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7813106152919645`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"f886843e-2726-494a-8e41-020a58b4e55d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"2812.28", "-", "1916.39"}]], "Input",
 CellChangeTimes->{{3.781310622374055*^9, 3.7813106326026373`*^9}, {
  3.7813111955844345`*^9, 3.7813112049713125`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"cc6c52fa-b4a9-4ff9-a9ad-cdc94542001b"],

Cell[BoxData[
 RowBox[{"2321.5", "/", "895.8900000000001`"}]], "Input",
 CellChangeTimes->{{3.7813112098462677`*^9, 3.7813112166700034`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"a5a427b1-2b09-4734-9573-8eea3698be16"],

Cell[BoxData["2.5912779470693943`"], "Output",
 CellChangeTimes->{3.781311218227063*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"94d84e61-9884-43c8-9621-446820ff1c11"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"41", "/", "50"}], "*", 
  RowBox[{"3", "/", 
   RowBox[{"(", 
    RowBox[{"0.0018", "*", "500"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7813112733058977`*^9, 3.7813112893130584`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"371691e8-819c-4efe-838f-79c66400def5"],

Cell[BoxData["2.7333333333333334`"], "Output",
 CellChangeTimes->{3.7813112902846584`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"ec28b526-5da1-4dea-bc5b-c3a8fbb8d44c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  RowBox[{"HoldForm", "[", 
   RowBox[{
    SubscriptBox["U", "C"], "/", 
    SubscriptBox["U", "R"]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.781311947436941*^9, 3.7813119912696314`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"275a97ec-c32f-4b88-aa8a-e20ce567eacf"],

Cell["\\frac{U_C}{U_R}", "Output",
 CellChangeTimes->{{3.781311979617815*^9, 3.781311992215102*^9}},
 CellLabel->
  "Out[64]//TeXForm=",ExpressionUUID->"be264b60-6980-4673-9a4c-d3d3365bab88"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"R", ",", "L", ",", "C"}], "]"}]], "Input",
 CellChangeTimes->{{3.7813179172856627`*^9, 3.78131795328512*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"8da0aa7f-f03b-4f60-9f41-075a9444c226"],

Cell[BoxData[
 RowBox[{"Z", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"R", "+", 
     RowBox[{"I", " ", "L"}]}], ")"}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "I"}], " ", "X"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"R", "+", 
      RowBox[{"I", " ", "L"}], "-", 
      RowBox[{"I", " ", "X"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.781317932329651*^9, 3.7813180137201977`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"468e341b-115c-41bf-bd5c-f834de1cf620"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "L"}], "+", "R"}], ")"}], " ", "X"}], 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "L"}], "+", "R", "-", 
     RowBox[{"\[ImaginaryI]", " ", "X"}]}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.7813180762027655`*^9, 3.7813180799904375`*^9}, {
  3.781318205635359*^9, 3.781318213007911*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"3a0c1044-1087-411b-9279-0304ffdabe7c"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"R", " ", 
     SuperscriptBox["X", "2"]}], 
    RowBox[{
     SuperscriptBox["R", "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"L", "-", "X"}], ")"}], "2"]}]], "+", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["L", "2"], " ", "X"}], 
        RowBox[{
         SuperscriptBox["R", "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"L", "-", "X"}], ")"}], "2"]}]]}], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["R", "2"], " ", "X"}], 
       RowBox[{
        SuperscriptBox["R", "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"L", "-", "X"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{"L", " ", 
        SuperscriptBox["X", "2"]}], 
       RowBox[{
        SuperscriptBox["R", "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"L", "-", "X"}], ")"}], "2"]}]]}], ")"}]}]}], "]"}]], \
"Input",
 CellChangeTimes->{{3.7813182962592316`*^9, 3.781318305379031*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"c8ee39e9-7cbe-46fc-98b2-182735a24840"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"L", "-", 
     RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", "X"}], 
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", "L"}], "+", "R", "-", 
   RowBox[{"\[ImaginaryI]", " ", "X"}]}]]], "Output",
 CellChangeTimes->{3.781318309774021*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"11515266-66ab-4d33-a96f-90321c479c2a"],

Cell[BoxData[
 RowBox[{"Arg", "[", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "L"}], "+", "R"}], ")"}], " ", "X"}], 
    RowBox[{"L", "-", 
     RowBox[{"\[ImaginaryI]", " ", "R"}], "-", "X"}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.781318139374339*^9, 3.7813181423255854`*^9}, {
  3.781318174114766*^9, 3.781318176197886*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"15fb43b7-f671-4ce0-8dca-6eaa35c08685"],

Cell[BoxData[
 RowBox[{"Arg", "[", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "L"}], "+", "R"}], ")"}], " ", "X"}], 
    RowBox[{"L", "-", 
     RowBox[{"\[ImaginaryI]", " ", "R"}], "-", "X"}]]}], "]"}]], "Output",
 CellChangeTimes->{3.781318142842202*^9, 3.781318177361455*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"826bb71a-841b-4ccd-8120-768914619b82"]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 236, 5, 45, "Input",ExpressionUUID->"256e3163-237b-4383-964f-ae28860b9d67"],
Cell[819, 29, 215, 4, 32, "Output",ExpressionUUID->"e5c77d6e-b908-465e-97a0-5de03b801799"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1071, 38, 243, 4, 28, "Input",ExpressionUUID->"6fd64210-85c5-43ab-9263-c7219a27af70"],
Cell[1317, 44, 168, 3, 32, "Output",ExpressionUUID->"553eae14-adce-4478-a482-c2106034a590"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1522, 52, 202, 4, 28, "Input",ExpressionUUID->"19775c74-77bd-421a-bb23-c13f6ed68d7a"],
Cell[1727, 58, 153, 3, 32, "Output",ExpressionUUID->"12141743-60a6-48d4-88e7-78f6f72a3120"]
}, Open  ]],
Cell[1895, 64, 550, 16, 45, "Input",ExpressionUUID->"6ab48e13-2e22-4b11-b28b-a7259f31381c"],
Cell[CellGroupData[{
Cell[2470, 84, 209, 4, 28, "Input",ExpressionUUID->"f1e4cfd1-7459-4035-b7cb-4868515cbdc7"],
Cell[2682, 90, 433, 12, 86, "Output",ExpressionUUID->"b639338c-e381-4ed4-b951-66bf7f69bc33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3152, 107, 154, 3, 28, "Input",ExpressionUUID->"6ed8dc0c-3e90-48d3-bc7f-af217b189d2f"],
Cell[3309, 112, 158, 3, 32, "Output",ExpressionUUID->"3246b298-be1c-43ab-adc2-a345a8b20693"]
}, Open  ]],
Cell[3482, 118, 236, 5, 45, "Input",ExpressionUUID->"fe02a2ac-ff7b-4afb-a1d0-507dd1d2b2cc"],
Cell[3721, 125, 152, 3, 28, "Input",ExpressionUUID->"f7012dec-d846-4b1c-ad3d-f9a088a2c6db"],
Cell[CellGroupData[{
Cell[3898, 132, 1338, 36, 103, "Input",ExpressionUUID->"d6a1a4ab-1527-4c50-80bd-55fb31c86e25"],
Cell[5239, 170, 2606, 41, 100, "Message",ExpressionUUID->"1d679355-018c-4bf6-8947-e42882296710"],
Cell[7848, 213, 8393, 157, 109, "Output",ExpressionUUID->"c6004b9a-3985-426c-a4ef-dda9933fbe63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16278, 375, 681, 19, 45, "Input",ExpressionUUID->"33f2289f-3c84-4cfe-9b3b-53aaa422e4c4"],
Cell[16962, 396, 1460, 27, 376, "Output",ExpressionUUID->"9f09692d-9402-4308-97f7-7f7727e1d0a9"]
}, Open  ]],
Cell[18437, 426, 506, 15, 45, "Input",ExpressionUUID->"17d2fa6c-9f21-43a3-a39c-f00b2252c11d"],
Cell[18946, 443, 156, 3, 28, "Input",ExpressionUUID->"45a3b43d-a274-4820-be1c-0ebe5f9b52fa"],
Cell[CellGroupData[{
Cell[19127, 450, 202, 4, 28, "Input",ExpressionUUID->"f483ad2d-9925-4547-9cfb-0f8d6ea9e816"],
Cell[19332, 456, 155, 3, 32, "Output",ExpressionUUID->"f6bc2c5f-5443-477b-b4f6-43d9c3ca6e32"]
}, Open  ]],
Cell[19502, 462, 209, 4, 45, "Input",ExpressionUUID->"acb6f52e-8c54-4e4e-a6f1-c8f53fd1e110"],
Cell[CellGroupData[{
Cell[19736, 470, 156, 3, 28, "Input",ExpressionUUID->"0b492aa8-dca0-414d-89eb-8b18f57807ce"],
Cell[19895, 475, 359, 9, 24, "Message",ExpressionUUID->"e242fa91-5565-4c26-b20d-98f89d780efe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20291, 489, 3293, 88, 346, "Input",ExpressionUUID->"9c38f853-c8a5-4579-b613-84a85a60acee"],
Cell[23587, 579, 8728, 164, 242, "Output",ExpressionUUID->"d66b9672-43d8-41ff-a227-1e84aa63f56f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32352, 748, 430, 11, 45, "Input",ExpressionUUID->"959b5b72-6b19-44cd-99c9-c9eede750c4e"],
Cell[32785, 761, 548, 15, 32, "Output",ExpressionUUID->"107fa70a-0262-43fd-a6da-2043c6acfa79"]
}, Open  ]],
Cell[33348, 779, 232, 5, 28, "Input",ExpressionUUID->"792b423c-074a-4087-9bf0-c4664cd20162"],
Cell[CellGroupData[{
Cell[33605, 788, 128, 3, 28, "Input",ExpressionUUID->"e8faa959-5d4b-44bf-aa97-8791162cd085"],
Cell[33736, 793, 181, 3, 32, "Output",ExpressionUUID->"714e5c1e-2447-46ee-94f8-4c4165b0aaca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33954, 801, 205, 4, 28, "Input",ExpressionUUID->"c7dc4c21-6e53-451e-b01f-9485d209eb43"],
Cell[34162, 807, 162, 3, 32, "Output",ExpressionUUID->"05f70922-8ef8-4407-96f8-cd835db7ef90"]
}, Open  ]],
Cell[34339, 813, 154, 3, 28, "Input",ExpressionUUID->"551d6a4d-7883-421e-aecd-fd3ac8c60046"],
Cell[CellGroupData[{
Cell[34518, 820, 280, 6, 28, "Input",ExpressionUUID->"4cbfe14a-d582-428b-9cb4-211fd1144e28"],
Cell[34801, 828, 198, 3, 32, "Output",ExpressionUUID->"ac1f7cb8-5dea-45ab-ab90-87b59f05cf0a"]
}, Open  ]],
Cell[35014, 834, 260, 5, 45, "Input",ExpressionUUID->"f2ad855a-7849-4d23-9954-7c02eec11e24"],
Cell[35277, 841, 156, 3, 28, "Input",ExpressionUUID->"8e1f95b0-db7b-489b-8f3b-71d8f20b89b4"],
Cell[CellGroupData[{
Cell[35458, 848, 197, 4, 45, "Input",ExpressionUUID->"72140cb3-3a2c-45e2-a453-aa7eea278847"],
Cell[35658, 854, 1897, 51, 128, "Output",ExpressionUUID->"ad1a1f42-cbf2-4694-bf52-f0f8c0f2263b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37592, 910, 1920, 51, 162, "Input",ExpressionUUID->"49f43a0f-6ae4-4b00-af10-2d2f092cbc26"],
Cell[39515, 963, 1853, 50, 128, "Output",ExpressionUUID->"8c117de2-3372-49bc-9369-bd0d3f2dab55"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41405, 1018, 140, 2, 45, "Input",ExpressionUUID->"bb31ae88-7fc4-457e-ada3-cc9381250759"],
Cell[41548, 1022, 1644, 41, 231, "Output",ExpressionUUID->"9bb0c363-87c5-42db-b493-93f0bb5b3180"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43229, 1068, 229, 4, 45, "Input",ExpressionUUID->"063870f8-85b5-4ee4-b24d-f778a162cb4b"],
Cell[43461, 1074, 232, 4, 32, "Output",ExpressionUUID->"5a5b9952-47b9-480c-98d2-99bd384b0069"]
}, Open  ]],
Cell[43708, 1081, 154, 3, 28, "Input",ExpressionUUID->"99c9926d-26a4-493f-8fe8-751ba7986b8f"],
Cell[CellGroupData[{
Cell[43887, 1088, 880, 20, 66, "Input",ExpressionUUID->"af15cc40-0fc7-489e-bfeb-5de83a26527c"],
Cell[44770, 1110, 500, 13, 86, "Output",ExpressionUUID->"9277bb73-481d-4e9f-85fa-3e1b847803ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45307, 1128, 591, 16, 83, "Input",ExpressionUUID->"f3ed80d7-819f-4f25-928e-d636b3fa9298"],
Cell[45901, 1146, 829, 16, 81, "Message",ExpressionUUID->"c13b308d-5acb-4741-a004-cb8eaf418abd"],
Cell[46733, 1164, 159, 3, 32, "Output",ExpressionUUID->"2d790248-0365-409f-89f2-59638b08abc3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46929, 1172, 154, 3, 28, "Input",ExpressionUUID->"cfc94941-eb1b-44e6-acc3-49514820b892"],
Cell[47086, 1177, 183, 3, 32, "Output",ExpressionUUID->"7b494bc3-3ee3-4601-8211-c985212f1225"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47306, 1185, 412, 9, 45, "Input",ExpressionUUID->"03ee667a-1a51-4fc9-afc9-41343cba4b6a"],
Cell[47721, 1196, 274, 6, 32, "Output",ExpressionUUID->"a953c10f-6206-4186-9e63-ae38555b3a1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48032, 1207, 213, 3, 28, "Input",ExpressionUUID->"4b98fc87-c16a-4ce1-b2cd-06939f4f6ca1"],
Cell[48248, 1212, 168, 2, 32, "Output",ExpressionUUID->"d4f853c7-a72d-438c-9464-373ceb3fe8e0"]
}, Open  ]],
Cell[48431, 1217, 154, 3, 28, InheritFromParent,ExpressionUUID->"fbea922c-55f3-4d2a-a7c9-fd51377d85d1"],
Cell[48588, 1222, 156, 3, 28, InheritFromParent,ExpressionUUID->"75ecde7a-6b5f-4556-a9d7-52309790b2cc"],
Cell[CellGroupData[{
Cell[48769, 1229, 274, 6, 45, "Input",ExpressionUUID->"a206bd0b-eb1b-4f14-9d26-4711a58ad07a"],
Cell[49046, 1237, 219, 3, 32, "Output",ExpressionUUID->"31c8855f-69d7-44e4-b69d-53a532854868"]
}, Open  ]],
Cell[49280, 1243, 154, 3, 28, "Input",ExpressionUUID->"8eab162e-bf85-41c7-8cc6-0b0ecea6e7f0"],
Cell[CellGroupData[{
Cell[49459, 1250, 1036, 22, 45, "Input",ExpressionUUID->"e8f5f3db-9f10-4a3b-a2dd-b05b12e3d7dc"],
Cell[50498, 1274, 6207, 120, 252, "Output",ExpressionUUID->"d775142e-c608-41a6-a16a-18ecf3a6e7c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56742, 1399, 6319, 121, 101, "Input",ExpressionUUID->"e0a4deec-3777-4a10-b851-044f6ff34236"],
Cell[63064, 1522, 217, 3, 32, "Output",ExpressionUUID->"583eaaf8-3e6f-44c8-8a6f-c1b36958e601"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63318, 1530, 340, 7, 45, "Input",ExpressionUUID->"da21eb90-e602-47bd-827c-1e18304f83cd"],
Cell[63661, 1539, 763, 15, 24, "Message",ExpressionUUID->"35baa8b1-8be2-4878-9dce-8250623d5f16"],
Cell[64427, 1556, 338, 7, 32, "Output",ExpressionUUID->"10b0a735-37c4-449b-bf40-554d6035ab37"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64802, 1568, 338, 7, 45, "Input",ExpressionUUID->"afe302ad-fc44-4610-b2b5-38d809dbb56a"],
Cell[65143, 1577, 568, 14, 32, "Output",ExpressionUUID->"e9f91528-97c2-468f-9474-6c84590ac456"]
}, Open  ]],
Cell[65726, 1594, 205, 4, 28, "Input",ExpressionUUID->"2b49a30e-1d2b-474e-8a96-ca6dffc65398"],
Cell[CellGroupData[{
Cell[65956, 1602, 262, 6, 28, "Input",ExpressionUUID->"f4748d07-2fbe-4b0c-93f7-1cd7f239a00a"],
Cell[66221, 1610, 172, 3, 32, "Output",ExpressionUUID->"35a6f62b-9ed4-43ba-bcf5-961f43057fac"]
}, Open  ]],
Cell[66408, 1616, 328, 9, 45, "Input",ExpressionUUID->"1059843c-bf1e-48f7-85aa-643d540f91a3"],
Cell[CellGroupData[{
Cell[66761, 1629, 204, 4, 28, "Input",ExpressionUUID->"f6ecb7c3-d0e2-49bb-887a-2cada87298d8"],
Cell[66968, 1635, 162, 3, 32, "Output",ExpressionUUID->"c37b2e08-8573-423a-a3da-494ec7018c18"]
}, Open  ]],
Cell[67145, 1641, 207, 4, 28, "Input",ExpressionUUID->"8f4863ae-d143-4cb3-a78b-f27ca3de9636"],
Cell[CellGroupData[{
Cell[67377, 1649, 410, 12, 83, "Input",ExpressionUUID->"1abe63cf-0a77-48a3-b257-b30f8c4d496a"],
Cell[67790, 1663, 409, 12, 86, "Output",ExpressionUUID->"0942c9cc-2236-438f-8175-bb367810f4da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68236, 1680, 220, 3, 45, "Input",ExpressionUUID->"cdfd4b3a-304f-4b33-ae53-93f67cb2c7c5"],
Cell[68459, 1685, 159, 3, 46, "Output",ExpressionUUID->"283dcb8d-cee9-4f08-9b90-f660b3385e69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68655, 1693, 328, 6, 45, "Input",ExpressionUUID->"6e6066e1-69f0-48e9-ae84-9c7a0b9a3a80"],
Cell[68986, 1701, 176, 3, 46, "Output",ExpressionUUID->"e97f9d43-d973-4db3-b169-00d679181363"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69199, 1709, 527, 8, 45, "Input",ExpressionUUID->"b321779c-92fe-4bc4-a0ff-be8b5088c568"],
Cell[69729, 1719, 297, 6, 46, "Output",ExpressionUUID->"e5b19ec3-3ca3-41ce-97e7-826e03b698bd"],
Cell[70029, 1727, 289, 6, 46, "Output",ExpressionUUID->"d5339619-b0e4-4e64-859e-8a445a7a162c"],
Cell[70321, 1735, 234, 4, 32, "Output",ExpressionUUID->"82349d14-cc0e-4c70-bba1-5a602f557b60"]
}, Open  ]],
Cell[70570, 1742, 147, 3, 28, "Input",ExpressionUUID->"7ec30e31-ca09-49cf-9b7f-93d0f52c02de"],
Cell[70720, 1747, 170, 3, 28, "Input",ExpressionUUID->"de564208-b23a-4e54-8475-47c3a8daee99"],
Cell[70893, 1752, 266, 5, 45, "Input",ExpressionUUID->"4995587e-ddcd-453b-81c4-ed767df00b04"],
Cell[71162, 1759, 1953, 51, 86, InheritFromParent,ExpressionUUID->"dfbd01bc-83ae-42d0-90ca-b58c83bedb80"],
Cell[73118, 1812, 1881, 50, 71, "Output",ExpressionUUID->"f8102816-fe13-4382-baaf-ac67badb18bd"],
Cell[75002, 1864, 2026, 56, 105, InheritFromParent,ExpressionUUID->"13da1baf-11ed-4a1a-a635-25750d528a17"],
Cell[CellGroupData[{
Cell[77053, 1924, 210, 3, 45, "Input",ExpressionUUID->"a1f1eead-60e7-4878-9170-c33b362a03b9"],
Cell[77266, 1929, 178, 3, 32, "Output",ExpressionUUID->"d273ab8d-9fbb-46b1-a084-bcd060d480bd"]
}, Open  ]],
Cell[77459, 1935, 400, 9, 45, "Input",ExpressionUUID->"77a59f6c-bf13-4039-a104-c6b8f4b97bf1"],
Cell[CellGroupData[{
Cell[77884, 1948, 280, 6, 45, "Input",ExpressionUUID->"45b8850e-2146-4b55-adc7-88791d6723ea"],
Cell[78167, 1956, 219, 4, 32, "Output",ExpressionUUID->"5975e0f8-060c-4e57-ab5b-4c9f005c7186"]
}, Open  ]],
Cell[78401, 1963, 205, 3, 45, "Input",ExpressionUUID->"32b1659f-e7d3-4c3e-a9d5-5a489da4e9b0"],
Cell[CellGroupData[{
Cell[78631, 1970, 211, 3, 28, "Input",ExpressionUUID->"754125fb-dfcc-4175-8ced-2d7c1095e75a"],
Cell[78845, 1975, 219, 3, 32, "Output",ExpressionUUID->"2eab0d33-c9f6-44e7-977b-41716dbc69ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79101, 1983, 813, 20, 45, "Input",ExpressionUUID->"dd757aca-bd1a-4f7c-91a5-11dfa77004cd"],
Cell[79917, 2005, 7053, 134, 248, "Output",ExpressionUUID->"8dfc3bde-83e8-4da3-9a98-72c983d78709"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87007, 2144, 7161, 135, 98, "Input",ExpressionUUID->"cd96050d-a813-4055-b3a4-d11a612f9c9d"],
Cell[94171, 2281, 191, 2, 32, "Output",ExpressionUUID->"4b6f9660-39aa-414d-be25-66596a4f7e05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94399, 2288, 276, 6, 45, "Input",ExpressionUUID->"027a7e63-4124-4c60-bc1d-83f053f1cf74"],
Cell[94678, 2296, 220, 3, 32, "Output",ExpressionUUID->"c9a677c7-f286-4544-9272-24cbf6925377"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94935, 2304, 202, 3, 28, "Input",ExpressionUUID->"dc224cfb-6522-4044-a4a7-cdf0c7c9a7ac"],
Cell[95140, 2309, 254, 3, 32, "Output",ExpressionUUID->"23482928-85df-4414-b8ea-7d4abb8012f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95431, 2317, 221, 4, 28, "Input",ExpressionUUID->"5e762a1f-ea14-4db5-9901-144b14d8881e"],
Cell[95655, 2323, 172, 3, 55, "Output",ExpressionUUID->"0005fa0e-0d9b-40ab-b417-c33038032d14"]
}, Open  ]],
Cell[95842, 2329, 223, 4, 67, InheritFromParent,ExpressionUUID->"b46c3bcb-0e48-4354-9cd0-9e2390e6e3f6"],
Cell[96068, 2335, 155, 2, 32, "Output",ExpressionUUID->"66d3addf-1e4e-417a-9c66-c07181255bad"],
Cell[96226, 2339, 154, 3, 28, "Input",ExpressionUUID->"98bd7364-ceb8-406d-8263-ec90ae97a4c8"],
Cell[96383, 2344, 179, 3, 28, "Input",ExpressionUUID->"55207d7d-5329-4243-a254-29268bb775df"],
Cell[96565, 2349, 156, 3, 28, "Input",ExpressionUUID->"12637267-36ba-4c6e-9506-665dc1c1252c"],
Cell[CellGroupData[{
Cell[96746, 2356, 311, 7, 45, "Input",ExpressionUUID->"c64482db-fab1-4d2d-9b17-6d71fa83be35"],
Cell[97060, 2365, 288, 6, 32, "Output",ExpressionUUID->"2072d871-4bd9-43dc-a43f-f3e6e5858b1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97385, 2376, 339, 7, 45, "Input",ExpressionUUID->"8934d529-c68d-4a3f-9ca5-0513a6479d46"],
Cell[97727, 2385, 550, 14, 32, "Output",ExpressionUUID->"f886843e-2726-494a-8e41-020a58b4e55d"]
}, Open  ]],
Cell[98292, 2402, 261, 4, 28, "Input",ExpressionUUID->"cc6c52fa-b4a9-4ff9-a9ad-cdc94542001b"],
Cell[98556, 2408, 220, 3, 28, InheritFromParent,ExpressionUUID->"a5a427b1-2b09-4734-9573-8eea3698be16"],
Cell[98779, 2413, 167, 2, 32, "Output",ExpressionUUID->"94d84e61-9884-43c8-9621-446820ff1c11"],
Cell[CellGroupData[{
Cell[98971, 2419, 302, 7, 28, "Input",ExpressionUUID->"371691e8-819c-4efe-838f-79c66400def5"],
Cell[99276, 2428, 169, 2, 32, "Output",ExpressionUUID->"ec28b526-5da1-4dea-bc5b-c3a8fbb8d44c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99482, 2435, 314, 7, 45, "Input",ExpressionUUID->"275a97ec-c32f-4b88-aa8a-e20ce567eacf"],
Cell[99799, 2444, 191, 3, 46, "Output",ExpressionUUID->"be264b60-6980-4673-9a4c-d3d3365bab88"]
}, Open  ]],
Cell[100005, 2450, 237, 4, 45, "Input",ExpressionUUID->"8da0aa7f-f03b-4f60-9f41-075a9444c226"],
Cell[100245, 2456, 506, 15, 45, "Input",ExpressionUUID->"468e341b-115c-41bf-bd5c-f834de1cf620"],
Cell[100754, 2473, 555, 13, 69, InheritFromParent,ExpressionUUID->"3a0c1044-1087-411b-9279-0304ffdabe7c"],
Cell[101312, 2488, 1264, 41, 75, InheritFromParent,ExpressionUUID->"c8ee39e9-7cbe-46fc-98b2-182735a24840"],
Cell[102579, 2531, 384, 10, 57, "Output",ExpressionUUID->"11515266-66ab-4d33-a96f-90321c479c2a"],
Cell[102966, 2543, 483, 12, 69, InheritFromParent,ExpressionUUID->"15fb43b7-f671-4ce0-8dca-6eaa35c08685"],
Cell[103452, 2557, 431, 11, 57, "Output",ExpressionUUID->"826bb71a-841b-4ccd-8120-768914619b82"]
}
]
*)

